home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / emulate / systems / pc370 / mac / demomac2.mlc < prev    next >
Text File  |  1988-01-03  |  466b  |  17 lines
  1. DEMOMAC2 BEGIN
  2.          WTO   'DEMOMAC2 COPY DEMOMAC2.DAT TO DEMOMAC2.TST'
  3.          OPEN SYSUT1
  4.          OPEN SYSUT2
  5. LOOP     GET  SYSUT1,RECORD
  6.          PUT  SYSUT2,RECORD
  7.          B    LOOP
  8. EOJ      CLOSE SYSUT1
  9.          CLOSE SYSUT2
  10.          RETURN
  11. RECORD   DS   XL256
  12. SYSUT1   DCB  LRECL=256,RECFM=T,MACRF=G,EODAD=EOJ,
  13.               DDNAME='DEMOMAC2.DAT'
  14. SYSUT2   DCB  LRECL=256,RECFM=T,MACRF=P,
  15.               DDNAME='DEMOMAC2.TST'
  16.          END
  17.