DataMuseum.dk Presents historical artifacts from the history of: IBM System/36

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦b2db7c3a5⟧

    Length: 1280 (0x500)
    Notes: MEMBER_P, Member_Text
    Names: »RPGSAMPL«

Derivation

└─⟦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                                                           

0x000…001 0x81
0x001…002 »*«
0x002…003 0x02
0x003…004 0xb9
0x004…03d »SAMPLE PROGRAMS ARE RUN FOR RPG INSTALLATION VERIFICATION«
0x03d…03e 0x05
0x03e…03f 0x98
0x03f…057 »// MEMBER USER1-##MSGRP1«
0x057…058 0x29
0x058…059 0xa1
0x059…07a »// IF JOBQ-NO IF EVOKED-NO * 1028«
0x07a…07b 0x20
0x07b…07c 0xa1
0x07c…09d »// IF JOBQ-NO IF EVOKED-NO * 1026«
0x09d…09e 0x20
0x09e…09f 0x88
0x09f…0a7 »// PAUSE«
0x0a7…0a8 0x39
0x0a8…0a9 0x8e
0x0a9…0b7 »// LOAD $MAINT«
0x0b7…0b8 0x33
0x0b8…0b9 0xa6
0x0b9…0df »// FILE UNIT-I1,PACK-PPRPG,NAME-EXPROG«
0x0df…0e0 0x1b
0x0e0…0e1 0x86
0x0e1…0e7 »// RUN«
0x0e7…0e8 0x3b
0x0e8…0e9 0xa8
0x0e9…111 »// COPY FROM-DISK,TO-#RPGLIB,FILE-EXPROG«
0x111…112 0x19
0x112…113 0x86
0x113…119 »// END«
0x119…11a 0x3b
0x11a…11b 0x97
0x11b…132 »// LIBRARY NAME-#RPGLIB«
0x132…133 0x2a
0x133…134 0xa1
0x134…155 »// IF JOBQ-NO IF EVOKED-NO * 1029«
0x155…156 0x20
0x156…157 0x8b
0x157…162 »RPGC EXMPLE«
0x162…163 0x36
0x163…164 0x9a
0x164…17e »FORMAT ,EXMPLEFM,,EXMPLEFM«
0x17e…17f 0x27
0x17f…180 0xa1
0x180…1a1 »// IF JOBQ-NO IF EVOKED-NO * 1030«
0x1a1…1a2 0x20
0x1a2…1a3 0x8e
0x1a3…1b1 »// LOAD EXMPLE«
0x1b1…1b2 0x33
0x1b2…1b3 0xa6
0x1b3…1d9 »// FILE NAME-CASHRC,RETAIN-T,RECORDS-8«
0x1d9…1da 0x1b
0x1da…1db 0x86
0x1db…1e1 »// RUN«
0x1e1…1e2 0x3b
0x1e2…1e3 0xa1
0x1e3…204 »// IF JOBQ-NO IF EVOKED-NO * 1035«
0x204…205 0x20
0x205…206 0x8c
0x206…212 »AUTOC EXAUTO«
0x212…213 0x35
0x213…214 0xa1
0x214…235 »// IF JOBQ-NO IF EVOKED-NO * 1036«
0x235…236 0x20
0x236…237 0x8e
0x237…245 »// LOAD EXAUTO«
0x245…246 0x33
0x246…247 0x9c
0x247…263 »// FILE NAME-CASHRC,RETAIN-S«
0x263…264 0x25
0x264…265 0x86
0x265…26b »// RUN«
0x26b…26c 0x3b
0x26c…26d 0xa1
0x26d…28e »// IF JOBQ-NO IF EVOKED-NO * 1039«
0x28e…28f 0x20
0x28f…290 0xa1
0x290…2b1 »// IF JOBQ-NO IF EVOKED-NO * 1040«
0x2b1…2b2 0x20
0x2b2…2b3 0x8e
0x2b3…2c1 »// LOAD $MAINT«
0x2c1…2c2 0x33
0x2c2…2c3 0x86
0x2c3…2c9 »// RUN«
0x2c9…2ca 0x3b
0x2ca…2cb 0xb0
0x2cb…2fb »// DELETE LIBRARY-O,NAME-EXMPLE,LIBRNAME-#RPGLIB«
0x2fb…2fc 0x11
0x2fc…2fd 0xb2
0x2fd…32f »// DELETE LIBRARY-O,NAME-EXMPLEFM,LIBRNAME-#RPGLIB«
0x32f…330 0x0f
0x330…331 0xb0
0x331…361 »// DELETE LIBRARY-O,NAME-EXAUTO,LIBRNAME-#RPGLIB«
0x361…362 0x11
0x362…363 0xb0
0x363…393 »// DELETE LIBRARY-S,NAME-EXMPLE,LIBRNAME-#RPGLIB«
0x393…394 0x11
0x394…395 0xb2
0x395…3c7 »// DELETE LIBRARY-S,NAME-EXMPLEFM,LIBRNAME-#RPGLIB«
0x3c7…3c8 0x0f
0x3c8…3c9 0xb0
0x3c9…3f9 »// DELETE LIBRARY-S,NAME-EXAUTO,LIBRNAME-#RPGLIB«
0x3f9…3fa 0x11
0x3fa…3fb 0xb0
0x3fb…42b »// DELETE LIBRARY-S,NAME-EXAUTX,LIBRNAME-#RPGLIB«
0x42b…42c 0x11
0x42c…42d 0x86
0x42d…433 »// END«
0x433…434 0x3b
0x434…435 0x00
0x435…440 c6 c9 c3 c1 e3 c9 d6 d5 05 98 61                                                                  ┆FICATION q/┆
0x440…460 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 7b 7b d4 e2 c7 d9 d7 f1 29 a1 61 61 40 c9 c6 40 d1   ┆/ MEMBER USER1-##MSGRP1 ~// IF J┆
0x460…480 d6 c2 d8 60 d5 d6 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 d5 d6 40 5c 40 f1 f0 f2 f8 20 a1 61 61 40 c9   ┆OBQ-NO IF EVOKED-NO * 1028 ~// I┆
0x480…4a0 c6 40 d1 d6 c2 d8 60 d5 d6 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 d5 d6 40 5c 40 f1 f0 f2 f6 20 88 61   ┆F JOBQ-NO IF EVOKED-NO * 1026 h/┆
0x4a0…4c0 61 40 d7 c1 e4 e2 c5 39 8e 61 61 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 33 a6 61 61 40 c6 c9 d3 c5   ┆/ PAUSE þ// LOAD $MAINT w// FILE┆
0x4c0…4e0 40 e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 d9 d7 c7 6b d5 c1 d4 c5 60 c5 e7 d7 d9 d6 c7 1b   ┆ UNIT-I1,PACK-PPRPG,NAME-EXPROG ┆
0x4e0…500 86 61 61 40 d9 e4 d5 3b a8 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 c4 c9 e2 d2 6b e3 d6 60 7b d9   ┆f// RUN y// COPY FROM-DISK,TO-#R┆

Reduced view