DEMO CSECT
USING DEMO,R15
SAVE (14,12),,'SAVE REGISTERS'
LR R12,R15
DROP R15
USING DEMO,R12
ST R13,SAVEAREA+4
LA R13,SAVEAREA
OPEN (INFILE,INPUT)
OPEN (OUTFILE,OUTPUT)
OPEN (PRTFILE,OUTPUT)
MAINLOOP GET INFILE,INAREA READ A RECORD
AP CTR,=P'1'
PUT OUTFILE,INAREA WRITE RECORD
B MAINLOOP
*
EODAD DS 0H
MVI PRTAREA,C'1' SET UP PRINT LINE AND PRINT
MVC PRTAREA+10(13),=CL13'DEMO PROGRAM.'
MVC PRTAREA+30(34),=CL34'NUMBER OF OUTPUT RECORDS WRITTEN ='
MVC PRTAREA+64(10),EDITCTR
ED PRTAREA+64(10),CTR
PUT PRTFILE,PRTAREA
*
WTO 'IT''S THE ELEVENTH HOUR. DO YOU KNOW WHERE YOUR SOURCE *
CODE IS?'
*
CLOSE (INFILE,REWIND)
CLOSE (OUTFILE)
CLOSE (PRTFILE)
EXIT0 SLR R15,R15
EXITWRC RETURN (14,12),T,RC=(15) EXIT WITH RETURN CODE
*
INFILE DCB DDNAME=TAPE, DEFINE THE INPUT FILE *
DSORG=PS, *
EODAD=EODAD, *
RECFM=FB, *
LRECL=100, *
MACRF=GM
OUTFILE DCB DDNAME=DISK, DEFINE THE OUTPUT FILE *
DSORG=PS, *
RECFM=FB, *
LRECL=100, *
MACRF=PM
PRTFILE DCB DDNAME=PRINT, DEFINE THE PRINT FILE *
DSORG=PS, *
RECFM=FBA, *
LRECL=133, *
MACRF=PM
*
SAVEAREA DC 18F'0' CONSTANTS AND WORKAREAS
INAREA DS CL100
PRTAREA DC CL133' '
CTR DC PL4'0'
EDITCTR DC X'40206B2020206B202120'
*
R0 EQU 0 REGISTER EQUATES
R1 EQU 1
R2 EQU 2
R3 EQU 3
R4 EQU 4
R5 EQU 5
R6 EQU 6
R7 EQU 7
R8 EQU 8
R9 EQU 9
R10 EQU 10
R11 EQU 11
R12 EQU 12
R13 EQU 13
R14 EQU 14
R15 EQU 15
END