|
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: »#QDMP «
└─⟦631246a38⟧ Bits:30009808 REF.NO PWG83 PGM 5727-QU6 FEAT9074 QUERY/36 DA Z250-0037-2 REL/LEV 05.01 SEQ. 1/3 DISKET 2S 96TPI INTERNAL 88.01.08 31
└─⟦758c30d4d⟧
└─⟦this⟧ ».#QDMP «
* #QDMP FILENAME,FORMAT,RPGNAME,SORT/NOSORT/DISPLAY SOURCE,CATL,LIBNAME, * MASTERNAME,USERLIB,UTILTYPE,DEFAULT NAME,FILL CHAR // IFF ?9?/L IFF ?2?/ IF LOAD-'?2?,?8?' #ERR 0276,C,QRY // IFF ?9?/L IFF ?4?/ IF SOURCE-'?4?,?8?' #ERR 0277,C,QRY // IF ?5?/ GOTO NOCHECK // IFF ?5'NN'?/NN IFF ?5?/NY IFF ?5?/YN IFF ?5?/YY IFF ?5?/GO #ERR 0205,C,QRY // IFF ?5?/NN IF ?6?/ #ERR 0214,C,QRY // IFF ?5?/NN IFF ?5?/NY IFF SOURCE-'?6?,?8?' #ERR 0206,C,QRY // IF ?5?/NY IF SOURCE-'?6?,?8?' #ERR 0204,C,QRY // TAG NOCHECK // IF ?5?/ IFF ?6?/ IFF ?5'Y'?/ IFF SOURCE-'?6?,?8?' EVALUATE P5='' // IFF ?9?/L IFF ?4?/ IF ?4?/?6? #ERR 0275,C,QRY // IFF SOURCE-'?3R'0215'?,?8?' #ERR 0216,C,QRY // LOAD #QDMP // WORKSTN RESTORE-YES,UNIT-?WS? // PRINTER NAME-#QDPRINT // RUN // QRY FL-?1?,FT-?2?,RG-?3?,DS-?4?,SP-?5?,SN-?6?,MF-?7?,LB-?8?,+ UT-?9??11?,DF-?10? // END // IF ?9?/L RETURN // IF ?L'12,1'?/S RETURN // LOAD $SFGR // RUN // IF ?2?/ LOADMBR NAME-?10?,REPLACE-YES // ELSE LOADMBR NAME-?2? // INOUT PRINT-NO,INLIB-?8?,OUTLIB-?8?,HALT-NO // IF ?4?/ CREATE SOURCE-?10?,NUMBER-?L'9,3'? // ELSE CREATE SOURCE-?4?,NUMBER-?L'9,3'? // END // IFF ?4?/ RETURN // LOAD $MAINT // RUN // DELETE NAME-?10?,LIBRARY-S,LIBRNAME-?8? // END
0x000…001 0xc8 0x001…049 »* #QDMP FILENAME,FORMAT,RPGNAME,SORT/NOSORT/DISPLAY SOURCE,CATL,LIBNAME,« 0x049…04a 0x08 0x04a…04b 0x81 0x04b…04c »*« 0x04c…04d 0x02 0x04d…04e 0xb2 0x04e…080 »MASTERNAME,USERLIB,UTILTYPE,DEFAULT NAME,FILL CHAR« 0x080…081 0x1b 0x081…082 0xb7 0x082…0b9 »// IFF ?9?/L IFF ?2?/ IF LOAD-'?2?,?8?' #ERR 0276,C,QRY« 0x0b9…0ba 0x19 0x0ba…0bb 0xb9 0x0bb…0f4 »// IFF ?9?/L IFF ?4?/ IF SOURCE-'?4?,?8?' #ERR 0277,C,QRY« 0x0f4…0f5 0x17 0x0f5…0f6 0x97 0x0f6…10d »// IF ?5?/ GOTO NOCHECK« 0x10d…10e 0x39 0x10e…10f 0xcd 0x10f…15c »// IFF ?5'NN'?/NN IFF ?5?/NY IFF ?5?/YN IFF ?5?/YY IFF ?5?/GO #ERR 0205,C,QRY« 0x15c…15d 0x03 0x15d…15e 0xa5 0x15e…183 »// IFF ?5?/NN IF ?6?/ #ERR 0214,C,QRY« 0x183…184 0x2b 0x184…185 0xbd 0x185…1c2 »// IFF ?5?/NN IFF ?5?/NY IFF SOURCE-'?6?,?8?' #ERR 0206,C,QRY« 0x1c2…1c3 0x13 0x1c3…1c4 0xb0 0x1c4…1f4 »// IF ?5?/NY IF SOURCE-'?6?,?8?' #ERR 0204,C,QRY« 0x1f4…1f5 0x20 0x1f5…1f6 0x8e 0x1f6…204 »// TAG NOCHECK« 0x204…205 0x42 0x205…206 0xc3 0x206…249 »// IF ?5?/ IFF ?6?/ IFF ?5'Y'?/ IFF SOURCE-'?6?,?8?' EVALUATE P5=''« 0x249…24a 0x0d 0x24a…24b 0xb0 0x24b…27b »// IFF ?9?/L IFF ?4?/ IF ?4?/?6? #ERR 0275,C,QRY« 0x27b…27c 0x20 0x27c…27d 0xae 0x27d…2ab »// IFF SOURCE-'?3R'0215'?,?8?' #ERR 0216,C,QRY« 0x2ab…2ac 0x22 0x2ac…2ad 0x8d 0x2ad…2ba »// LOAD #QDMP« 0x2ba…2bb 0x43 0x2bb…2bc 0xa0 0x2bc…2dc »// WORKSTN RESTORE-YES,UNIT-?WS?« 0x2dc…2dd 0x30 0x2dd…2de 0x98 0x2de…2f6 »// PRINTER NAME-#QDPRINT« 0x2f6…2f7 0x38 0x2f7…2f8 0x86 0x2f8…2fe »// RUN« 0x2fe…2ff 0x4a 0x2ff…300 0xc0 0x300…340 »// QRY FL-?1?,FT-?2?,RG-?3?,DS-?4?,SP-?5?,SN-?6?,MF-?7?,LB-?8?,+« 0x340…341 0x10 0x341…342 0x92 0x342…354 »UT-?9??11?,DF-?10?« 0x354…355 0x3e 0x355…356 0x86 0x356…35c »// END« 0x35c…35d 0x4a 0x35d…35e 0x92 0x35e…370 »// IF ?9?/L RETURN« 0x370…371 0x3e 0x371…372 0x98 0x372…38a »// IF ?L'12,1'?/S RETURN« 0x38a…38b 0x38 0x38b…38c 0x8d 0x38c…399 »// LOAD $SFGR« 0x399…39a 0x43 0x39a…39b 0x86 0x39b…3a1 »// RUN« 0x3a1…3a2 0x4a 0x3a2…3a3 0xa8 0x3a3…3cb »// IF ?2?/ LOADMBR NAME-?10?,REPLACE-YES« 0x3cb…3cc 0x28 0x3cc…3cd 0x98 0x3cd…3e5 »// ELSE LOADMBR NAME-?2?« 0x3e5…3e6 0x38 0x3e6…3e7 0xae 0x3e7…415 »// INOUT PRINT-NO,INLIB-?8?,OUTLIB-?8?,HALT-NO« 0x415…416 0x22 0x416…417 0xad 0x417…444 »// IF ?4?/ CREATE SOURCE-?10?,NUMBER-?L'9,3'?« 0x444…445 0x23 0x445…446 0xa9 0x446…46f »// ELSE CREATE SOURCE-?4?,NUMBER-?L'9,3'?« 0x46f…470 0x27 0x470…471 0x86 0x471…477 »// END« 0x477…478 0x4a 0x478…479 0x92 0x479…48b »// IFF ?4?/ RETURN« 0x48b…48c 0x3e 0x48c…48d 0x8e 0x48d…49b »// LOAD $MAINT« 0x49b…49c 0x42 0x49c…49d 0x86 0x49d…4a3 »// RUN« 0x4a3…4a4 0x4a 0x4a4…4a5 0xaa 0x4a5…4cf »// DELETE NAME-?10?,LIBRARY-S,LIBRNAME-?8?« 0x4cf…4d0 0x26 0x4d0…4d1 0x86 0x4d1…4d7 »// END« 0x4d7…4d8 0x4a 0x4d8…4d9 0x00 0x4d9…4e0 c5 60 7d 6f f4 6f 6b ┆E-'?4?,┆ 0x4e0…500 6f f8 6f 7d 40 7b c5 d9 d9 40 f0 f2 f7 f7 6b c3 6b d8 d9 e8 17 97 61 61 40 c9 c6 40 6f f5 6f 61 ┆?8?' #ERR 0277,C,QRY p// IF ?5?/┆