|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Notes: MEMBER_P, Member_Text
Names: »RPGSAMPL«
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦a01802bb8⟧
└─⟦this⟧ ».RPGSAMPL«
* SAMPLE PROGRAMS ARE RUN FOR RPG INSTALLATION VERIFICATION // MEMBER USER1-##MSGRP1 // IF JOBQ-NO IF EVOKED-NO * 1028 // IF JOBQ-NO IF EVOKED-NO * 1026 // PAUSE // LOAD $MAINT // FILE UNIT-I1,PACK-PPRPG,NAME-EXPROG // RUN // COPY FROM-DISK,TO-#RPGLIB,FILE-EXPROG // END // LIBRARY NAME-#RPGLIB // IF JOBQ-NO IF EVOKED-NO * 1029 RPGC EXMPLE FORMAT ,EXMPLEFM,,EXMPLEFM // IF JOBQ-NO IF EVOKED-NO * 1030 // LOAD EXMPLE // FILE NAME-CASHRC,RETAIN-T,RECORDS-8 // RUN // IF JOBQ-NO IF EVOKED-NO * 1035 AUTOC EXAUTO // IF JOBQ-NO IF EVOKED-NO * 1036 // LOAD EXAUTO // FILE NAME-CASHRC,RETAIN-S // RUN // IF JOBQ-NO IF EVOKED-NO * 1039 // IF JOBQ-NO IF EVOKED-NO * 1040 // LOAD $MAINT // RUN // DELETE LIBRARY-O,NAME-EXMPLE,LIBRNAME-#RPGLIB // DELETE LIBRARY-O,NAME-EXMPLEFM,LIBRNAME-#RPGLIB // DELETE LIBRARY-O,NAME-EXAUTO,LIBRNAME-#RPGLIB // DELETE LIBRARY-S,NAME-EXMPLE,LIBRNAME-#RPGLIB // DELETE LIBRARY-S,NAME-EXMPLEFM,LIBRNAME-#RPGLIB // DELETE LIBRARY-S,NAME-EXAUTO,LIBRNAME-#RPGLIB // DELETE LIBRARY-S,NAME-EXAUTX,LIBRNAME-#RPGLIB // END