Demonstration script:
Code: Select all
$! sum_streamlf_test.com
$create stream_lf.txt
$set file stream_lf.txt /attr=(rfm:stmlf,lrl:32767,mrs:0,rat:cr)
$open/write slf stream_lf.txt
$write slf "line 1"
$write slf "line 2"
$write slf "line 3"
$close slf
edit/sum stream_lf.txt /update=sys$input: /output=stream_lf.out
-1,2
/
$ diff stream_lf.txt stream_lf.out
Code: Select all
ROBIN> set ver
ROBIN> @sum_streamlf_test.com
$! sum_streamlf_test.com
$create stream_lf.txt
$set file stream_lf.txt /attr=(rfm:stmlf,lrl:32767,mrs:0,rat:cr)
$open/write slf stream_lf.txt
$write slf "line 1"
$write slf "line 2"
$write slf "line 3"
$close slf
edit/sum stream_lf.txt /update=sys$input: /output=stream_lf.out
%SYSTEM-F-ACCVIO, access violation, reason mask=05, virtual address=FFFFFFFF8000
6695, PC=FFFF830007C0DD1A, PS=0000001B
Improperly handled condition, image exit forced.
Signal arguments: Number = 0000000000000005
Name = 000000000000000C
0000000000000005
FFFFFFFF80006695
FFFF830007C0DD1A
000000000000001B
Register dump:
RAX = FFFFFFFF80006695 RDI = FFFFFFFF80006695 RSI = 0000000000000005
RDX = 000000000000002E RCX = 0000000000000000 R8 = 000000007AC9F3A0
R9 = 0000000000000000 RBX = 000000007AC9FF58 RBP = 000000007AC9F390
R10 = 0000000000000010 R11 = 0000000000000206 R12 = 000000007AC9F598
R13 = 0000000000000000 R14 = 000000007FFCDA98 R15 = 000000012B274603
RIP = FFFF830007C0DD1A RSP = 000000007AC9F368 SS = 000000000000001B
%DCL-W-SKPDAT, image data (records not beginning with "$") ignored