Add Headings and they will appear in your table of contents.
For a year or more I've not done any coding. I'd like to get back to it. There is a program, that's pretty complicated, that I'd like to finish. But I'm going to have to start simple. This is simple. Copy a file.
GENER START 0
USING *,13
STM 14,12,12(13)
ST 13,4(15)
ST 15,8(13)
LR 13,15
B BEGIN
DC 13F'0'
BEGIN LA R2,SYSPRINT
BAL R9,OPENOUT
LA R2,IN
BAL R9,OPENIN
LA R2,OUT
BAL R9,OPENOUT
*
GET GET IN
LR 0,1
PUT OUT,(0)
AP #RECORDS,P1
B GET
Z ED EDIT9,#RECORDS
MVC OPENMSG(111),OPENMSG-1
PUT SYSPRINT,EDIT9
CLOSE (IN,,OUT,,SYSPRINT)
L 13,4(13)
LM 14,12,12(13)
SR 15,15
BR 14
* -----------------------------------------------------------
PUSH PRINT
PRINT NOGEN
YREGS
USING IHADCB,2
OPENIN MVC OPENMSG(8),DCBDDNAM
OPEN ((2),INPUT)
B LISTDCB
OPENOUT MVC OPENMSG(8),DCBDDNAM
OPEN ((2),OUTPUT)
C R2,=A(SYSPRINT)
BNE LISTDCB
PUT SYSPRINT,INITMSG-1
MVC INITMSG,INITMSG-1
BR R9
*
LISTDCB UNPK OPENMSG+15(3),DCBRECFM(2)
TR OPENMSG+15(2),HEX-240
MVI OPENMSG+17,C' '
LH 0,DCBLRECL
CVD 0,16(13)
OI 23(13),X'0F'
UNPK OPENMSG+24(5),21(3,13)
LH 0,DCBBLKSI
CVD 0,16(13)
OI 23(13),X'0F'
UNPK OPENMSG+38(5),21(3,13)
PUT SYSPRINT,OPENMSG-1
BR R9
DROP 2
*
*
* * YOU'LL WANT TO USE EXLST=OPENEXIT IN //OUT
* PUSH USING
* OPENEXIT DC 0F'0',X'87'AL3(OPENEXIT+4)
* USING IHADCB,1
* USING *,15
* CLI DCBRECFM,0
* BNER 14
* MVC DCBRECFM,DCBRECFM-IHADCB+IN
* MVC DCBLRECL,DCBLRECL-IHADCB+IN
* POP USING
* BR 14
*
IN DCB DDNAME=IN,DSORG=PS,RECFM=FT,MACRF=GL,LRECL=399,EODAD=Z
OUT DCB DDNAME=OUT,DSORG=PS,RECFM=FT,MACRF=PM,LRECL=133
SYSPRINT DCB DDNAME=SYSPRINT,DSORG=PS,RECFM=FT,MACRF=PM,LRECL=133
*
POP PRINT
LTORG
HEX DC C'0123456789ABCDEF'
P1 DC X'1C'
#RECORDS DC PL5'0'
EDIT9 DC X'402020206C2020206C212020',C' RECORDS COPIED '
OPENMSG DC C'........ RECFM=.. LRECL=..... BLKSIZE=..... '
INITMSG DC CL133'GENER ASSEMBLED &SYSDATE AT &SYSTIME TO COPY //X
IN TO //OUT'
* -----------------------------------------------------------
END GENER