* * 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