PRINTOUT START
         STM   14,12,12(13)
         BALR  12,0
         USING *,12
         ST    13,SAVEAREA+4
         LA    13,SAVEAREA
         OPEN  (INDCB,INPUT,OUTDCB,OUTPUT)
LOOP1    EQU   *
         GET   INDCB,RECORD
         PUT   OUTDCB,RECORD
         B     LOOP1
EOFLOC   CLOSE (INDCB,,OUTDCB)
         L     13,SAVEAREA+4
         LM    14,12,12(13)
         BR    14
SAVEAREA DS    18F
INDCB    DCB   DDNAME=INFILE,MACRF=GM,BLKSIZE=80,LRECL=80,DSORG=PS,
               EODAD=EOFLOC
OUTDCB   DCB   DDNAME=OUTFILE,MACRF=PM,BLKSIZE=80,LRECL=80,DSORG=PS
RECORD   DS    CL80
         END