home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / copysavf.lzh / CPP3421.RPG < prev    next >
Text File  |  1986-06-26  |  2KB  |  31 lines
  1.       /TITLE - Q38 Materialize Save File
  2.       *        (c) Copyright 1986 by Q38
  3.       *            All rights reserved
  4.      FCPP3421IIF  F     528            DISK
  5.      FCPP3421OO   F     528            DISK
  6.      ICPP3421INS  01
  7.      I                                       01 528 DATA
  8.      IDATA        DS
  9.      I                                       01 256 DATA1
  10.      I                                      257 512 DATA2
  11.      I                                      513 528 DATA3
  12.      I           SDS
  13.      I                                     *PROGRAM PGMNAM
  14.      I                                     *PARMS   PARMS
  15.      C           *ENTRY    PLIST                           Program entry
  16.      C                     PARM           ERRCDE  1        Error return code
  17.      C           READ      TAG                             Read the Save
  18.      C                     READ CPP3421I               53LR - file's data
  19.      C           *INLR     CABEQ'1'       ENDPGM           If EOF, then end
  20.      C           *IN53     CABEQ'1'       ENDPGM           If ERR, then end
  21.      C                     EXCPTOUTPUT                     Write to DB file
  22.      C                     GOTO READ                       Go get next rec'd
  23.      C           ENDPGM    TAG                             End of program
  24.      C           *IN53     IFEQ '1'                        IF error
  25.      C           PARMS     ANDGE1                          and Parms > 1,
  26.      C                     MOVEL'1'       ERRCDE           set error code
  27.      C                     END
  28.      C                     MOVEL'1'       *INLR            Seton LR & Return
  29.      OCPP3421OE                OUTPUT
  30.      O                         DATA
  31.