First Sample Program

*
*  YOUR NAME
*
PROGRAM1 START
         PRINT NOGEN
         SAVE  (14,12)
         BALR  12,0
         USING *,12
         OPEN  INFILE                     PREPARE INPUT FILE
         OPEN  OUTFILE,OUTPUT             PREPARE OUTPUT FILE
         PUT   OUTFILE,TITLE              WRITE TITLE
         MVC   RECORD(1),=CL1' '          CLEAR OUTPUT RECORD
         MVC   RECORD+1(79),RECORD
         PUT   OUTFILE,RECORD             WRITE BLANK LINE
LOOP     GET   INFILE,RECORD              READ RECORD
         PUT   OUTFILE,RECORD             WRITE RECORD
         B     LOOP                       BRANCH TO LOOP
*
EOF      CLOSE INFILE                     CLOSE INPUT FILE
         CLOSE OUTFILE                    CLOSE OUTPUT FILE
         RETURN (14,12),,RC=0             EXIT
*
INERR    WTO   'INPUT FILE LAB1370 NOT FOUND'
         RETURN (14,12),,RC=1
OUTERR   WTO   'I/O ERROR ON OUTPUT FILE LAB1OUT'
         RETURN (14,12),,RC=2
INFILE   DCB   LRECL=80,                                               X
               RECFM=F,                                                X
               MACRF=G,                                                X
               EODAD=EOF,                                              X
               SYNAD=INERR,                                            X
               DDNAME=LAB1370
OUTFILE  DCB   LRECL=80,RECFM=F,MACRF=P,SYNAD=OUTERR,                  X
               DDNAME=LAB1OUT
*
*  DATA AREAS
*
RECORD   DS    CL80
TITLE    DS    0CL80
         DC    CL30' '
         DC    C'SAMPLE OUTPUT'
         DC    CL37' '
         END


Email Me | Office Hours | My Home Page | Department Home | MCC Home Page

© Copyright Emmi Schatz 2003