|
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: 2816 (0xb00)
Notes: MEMBER_P, Member_Text
Names: »$VAT36 «
└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
└─⟦56084dc9a⟧
└─⟦this⟧ ».$VAT36 «
// LIBRARY NAME-#VASPLIB // MEMBER USER1-##VSP1,USER2-##VSP2 // IF ?1?= GOTO PROMPT ?63F'3001'? // ELSE IF ?1?='START' GOTO T36START // ELSE IF ?1?='STOP' GOTO T36STOP // ELSE IF ?1?='REPORT' GOTO T36REPRT // ELSE #ERR 3002,3,VSP // TAG PROMPT // IF JOBQ-NO IF EVOKED-NO HELP TRACE36,?1?,?2?,?3?,?4?,?5?,?6?,+ ?7?,?8? // ELSE #ERR ?63?,3,VSP // RETURN // TAG T36START // EVALUATE ?4'56'? // IF ?2?= GOTO PROMPT ?63F'3003'? // ELSE IF ?3?= GOTO PROMPT ?63F'3005'? // IF ?C2?>8 #ERR 3004,3,VSP // IF 1>?3? #ERR 3005,3,VSP // ELSE IF ?3?>5000 #ERR 3005,3,VSP // IF 16>?4? #ERR 3006,3,VSP // ELSE IF ?4?>512 #ERR 3006,3,VSP // TRACE BATCH,?2?,NEW,?4?,'T6',START,?3? // IFF ?CD?='0000' #ERR 3026,3,VSP // RETURN // TAG T36STOP // IF ?2?= GOTO PROMPT ?63F'3007'? // ELSE IF ?C2?>8 #ERR 3008,3,VSP // TRACE BATCH,?2?,REMOVE,,,STOP // IFF ?CD?='0000' #ERR 3027,3,VSP STOP ERROR // RETURN // TAG T36REPRT // EVALUATE ?3'USER'? ?5'BOTH'? ?6'1STPROC'? ?7'ALL'? ?8'PRINTER'? // IFF ?3?='USER' IFF ?3?='JOB' #ERR 3011,3,VSP // IF ?3?='JOB' IF ?4?='?USER?' #ERR 3018,3,VSP // IF ?2?= GOTO PROMPT ?63F'3009'? // ELSE IF ?C2?>8 #ERR 3010,3,VSP // ELSE IFF DATAF1-?2? #ERR 3019,3,VSP // IF ?C4?>8 #ERR 3012,3,VSP // IFF ?5?=SUMMARY IFF ?5?=DETAIL IFF ?5?=BOTH #ERR 3013,3,VSP // IFF ?6?=1STPROC IFF ?6?=CURPROC IFF ?6?=PROG IFF ?6?=FNAME + IFF ?6?=FLABEL IFF ?6?=USER IFF ?6?=JOB #ERR 3014,3,VSP // IF ?C7?>8 #ERR 3015,3,VSP // IF ?8?='PRINTER' GOTO REPRTOK // ELSE IF ?C8?>8 #ERR 3016,3,VSP // ELSE IF ?8?=?2? #ERR 3028,3,VSP // ELSE IFF DATAF1-'?8?,?DATE?' GOTO REPRTOK // ELSE #ERR 3020,03,VSP,?8? DELETE ?8?,F1,SCRATCH,?DATE? // TAG REPRTOK // IF ?3?='USER' EVALUATE ?4'?USER?'? // ELSE EVALUATE P4=?4'ALL'? // LOCAL OFFSET-1,BLANK-62,AREA-SYSTEM // LOCAL OFFSET-1,DATA-'?2?',AREA-SYSTEM // LOCAL OFFSET-9,DATA-'?8?',AREA-SYSTEM // LOCAL OFFSET-25,DATA-'?3?',AREA-SYSTEM // LOCAL OFFSET-29,DATA-'?4?',AREA-SYSTEM // LOCAL OFFSET-37,DATA-'?5?',AREA-SYSTEM // LOCAL OFFSET-44,DATA-'?6?',AREA-SYSTEM // LOCAL OFFSET-51,DATA-'?7?',AREA-SYSTEM // LOAD $VAT6R // IF ?8?='PRINTER' PRINTER NAME-T6PRT // ELSE PRINTER NAME-T6PRT,PRIORITY-0 // RUN // EVALUATE P21='?L'63,4'?' GET THE REPORTER RETURN CODE // IFF ?21?='0000' #ERR ?21?,3,VSP // IF ?8?='PRINTER' GOTO ENDGOOD // EVALUATE P20='?L'59,4'?' GET THE SPOOL ID COPYPRT SP?20?,?8?,CANCEL // IFF ?CD?='0000' #ERR 3022,3,VSP,'SP?20?' // TAG ENDGOOD // IF JOBQ-NO IF EVOKED-NO RETURN // LOG ON // MSG ?USER?,VSP-3023 ?M3023? // LOG NORMAL // RETURN
0x000…001 0x98 0x001…019 »// LIBRARY NAME-#VASPLIB« 0x019…01a 0x38 0x01a…01b 0xa3 0x01b…03e »// MEMBER USER1-##VSP1,USER2-##VSP2« 0x03e…03f 0x2d 0x03f…040 0x8a 0x040…04a »// IF ?1?=« 0x04a…04b 0x0f 0x04b…04c 0x8b 0x04c…057 »GOTO PROMPT« 0x057…058 0x03 0x058…059 0x8b 0x059…064 »?63F'3001'?« 0x064…065 0x1e 0x065…066 0x96 0x066…07c »// ELSE IF ?1?='START'« 0x07c…07d 0x03 0x07d…07e 0x8d 0x07e…08b »GOTO T36START« 0x08b…08c 0x2a 0x08c…08d 0x95 0x08d…0a2 »// ELSE IF ?1?='STOP'« 0x0a2…0a3 0x04 0x0a3…0a4 0x8c 0x0a4…0b0 »GOTO T36STOP« 0x0b0…0b1 0x2b 0x0b1…0b2 0x97 0x0b2…0c9 »// ELSE IF ?1?='REPORT'« 0x0c9…0ca 0x02 0x0ca…0cb 0x8d 0x0cb…0d8 »GOTO T36REPRT« 0x0d8…0d9 0x2a 0x0d9…0da 0x97 0x0da…0f1 »// ELSE #ERR 3002,3,VSP« 0x0f1…0f2 0x39 0x0f2…0f3 0x8d 0x0f3…100 »// TAG PROMPT« 0x100…101 0x43 0x101…102 0xc1 0x102…143 »// IF JOBQ-NO IF EVOKED-NO HELP TRACE36,?1?,?2?,?3?,?4?,?5?,?6?,+« 0x143…144 0x0f 0x144…145 0x03 0x145…146 0x87 0x146…14d »?7?,?8?« 0x14d…14e 0x46 0x14e…14f 0x97 0x14f…166 »// ELSE #ERR ?63?,3,VSP« 0x166…167 0x39 0x167…168 0x89 0x168…171 »// RETURN« 0x171…172 0x47 0x172…173 0x8f 0x173…182 »// TAG T36START« 0x182…183 0x41 0x183…184 0x93 0x184…197 »// EVALUATE ?4'56'?« 0x197…198 0x3d 0x198…199 0x96 0x199…1af »// IF ?2?= GOTO PROMPT« 0x1af…1b0 0x0a 0x1b0…1b1 0x8b 0x1b1…1bc »?63F'3003'?« 0x1bc…1bd 0x25 0x1bd…1be 0x9b 0x1be…1d9 »// ELSE IF ?3?= GOTO PROMPT« 0x1d9…1da 0x04 0x1da…1db 0x8b 0x1db…1e6 »?63F'3005'?« 0x1e6…1e7 0x26 0x1e7…1e8 0x8c 0x1e8…1f4 »// IF ?C2?>8« 0x1f4…1f5 0x08 0x1f5…1f6 0x8f 0x1f6…205 »#ERR 3004,3,VSP« 0x205…206 0x2d 0x206…207 0x8b 0x207…212 »// IF 1>?3?« 0x212…213 0x09 0x213…214 0x8f 0x214…223 »#ERR 3005,3,VSP« 0x223…224 0x2d 0x224…225 0xa3 0x225…248 »// ELSE IF ?3?>5000 #ERR 3005,3,VSP« 0x248…249 0x2d 0x249…24a 0x8c 0x24a…256 »// IF 16>?4?« 0x256…257 0x08 0x257…258 0x8f 0x258…267 »#ERR 3006,3,VSP« 0x267…268 0x2d 0x268…269 0x92 0x269…27b »// ELSE IF ?4?>512« 0x27b…27c 0x02 0x27c…27d 0x8f 0x27d…28c »#ERR 3006,3,VSP« 0x28c…28d 0x2d 0x28d…28e 0xa9 0x28e…2b7 »// TRACE BATCH,?2?,NEW,?4?,'T6',START,?3?« 0x2b7…2b8 0x27 0x2b8…2b9 0xa2 0x2b9…2db »// IFF ?CD?='0000' #ERR 3026,3,VSP« 0x2db…2dc 0x2e 0x2dc…2dd 0x89 0x2dd…2e6 »// RETURN« 0x2e6…2e7 0x47 0x2e7…2e8 0x8e 0x2e8…2f6 »// TAG T36STOP« 0x2f6…2f7 0x42 0x2f7…2f8 0x96 0x2f8…30e »// IF ?2?= GOTO PROMPT« 0x30e…30f 0x0a 0x30f…310 0x8b 0x310…31b »?63F'3007'?« 0x31b…31c 0x25 0x31c…31d 0x91 0x31d…32e »// ELSE IF ?C2?>8« 0x32e…32f 0x08 0x32f…330 0x8f 0x330…33f »#ERR 3008,3,VSP« 0x33f…340 0x28 0x340…341 0xa0 0x341…361 »// TRACE BATCH,?2?,REMOVE,,,STOP« 0x361…362 0x30 0x362…363 0xa2 0x363…385 »// IFF ?CD?='0000' #ERR 3027,3,VSP« 0x385…386 0x05 0x386…387 0x8a 0x387…391 »STOP ERROR« 0x391…392 0x1f 0x392…393 0x89 0x393…39c »// RETURN« 0x39c…39d 0x47 0x39d…39e 0x8f 0x39e…3ad »// TAG T36REPRT« 0x3ad…3ae 0x41 0x3ae…3af 0xc2 0x3af…3f1 »// EVALUATE ?3'USER'? ?5'BOTH'? ?6'1STPROC'? ?7'ALL'? ?8'PRINTER'?« 0x3f1…3f2 0x0e 0x3f2…3f3 0x9f 0x3f3…412 »// IFF ?3?='USER' IFF ?3?='JOB'« 0x412…413 0x02 0x413…414 0x8f 0x414…423 »#ERR 3011,3,VSP« 0x423…424 0x20 0x424…425 0x8f 0x425…434 »// IF ?3?='JOB'« 0x434…435 0x02 0x435…436 0x9f 0x436…455 »IF ?4?='?USER?' #ERR 3018,3,VSP« 0x455…456 0x20 0x456…457 0x8a 0x457…461 »// IF ?2?=« 0x461…462 0x02 0x462…463 0x8b 0x463…46e »GOTO PROMPT« 0x46e…46f 0x04 0x46f…470 0x8b 0x470…47b »?63F'3009'?« 0x47b…47c 0x2a 0x47c…47d 0xa1 0x47d…49e »// ELSE IF ?C2?>8 #ERR 3010,3,VSP« 0x49e…49f 0x2f 0x49f…4a0 0xa6 0x4a0…4c6 »// ELSE IFF DATAF1-?2? #ERR 3019,3,VSP« 0x4c6…4c7 0x2a 0x4c7…4c8 0x9c 0x4c8…4e4 »// IF ?C4?>8 #ERR 3012,3,VSP« 0x4e4…4e5 0x34 0x4e5…4e6 0xae 0x4e6…514 »// IFF ?5?=SUMMARY IFF ?5?=DETAIL IFF ?5?=BOTH« 0x514…515 0x02 0x515…516 0x8f 0x516…525 »#ERR 3013,3,VSP« 0x525…526 0x11 0x526…527 0xa2 0x527…549 »// IFF ?6?=1STPROC IFF ?6?=CURPROC« 0x549…54a 0x02 0x54a…54b 0x9c 0x54b…567 »IFF ?6?=PROG IFF ?6?=FNAME +« 0x567…568 0x10 0x568…569 0x03 0x569…56a 0x8e 0x56a…578 »IFF ?6?=FLABEL« 0x578…579 0x02 0x579…57a 0x8c 0x57a…586 »IFF ?6?=USER« 0x586…587 0x02 0x587…588 0x8b 0x588…593 »IFF ?6?=JOB« 0x593…594 0x02 0x594…595 0x8f 0x595…5a4 »#ERR 3014,3,VSP« 0x5a4…5a5 0x13 0x5a5…5a6 0x9c 0x5a6…5c2 »// IF ?C7?>8 #ERR 3015,3,VSP« 0x5c2…5c3 0x34 0x5c3…5c4 0xa0 0x5c4…5e4 »// IF ?8?='PRINTER' GOTO REPRTOK« 0x5e4…5e5 0x30 0x5e5…5e6 0xa1 0x5e6…607 »// ELSE IF ?C8?>8 #ERR 3016,3,VSP« 0x607…608 0x2f 0x608…609 0xa2 0x609…62b »// ELSE IF ?8?=?2? #ERR 3028,3,VSP« 0x62b…62c 0x2e 0x62c…62d 0xac 0x62d…659 »// ELSE IFF DATAF1-'?8?,?DATE?' GOTO REPRTOK« 0x659…65a 0x24 0x65a…65b 0x9c 0x65b…677 »// ELSE #ERR 3020,03,VSP,?8?« 0x677…678 0x34 0x678…679 0x9c 0x679…695 »DELETE ?8?,F1,SCRATCH,?DATE?« 0x695…696 0x34 0x696…697 0x8e 0x697…6a5 »// TAG REPRTOK« 0x6a5…6a6 0x42 0x6a6…6a7 0xa5 0x6a7…6cc »// IF ?3?='USER' EVALUATE ?4'?USER?'?« 0x6cc…6cd 0x2b 0x6cd…6ce 0x9c 0x6ce…6ea »// ELSE EVALUATE P4=?4'ALL'?« 0x6ea…6eb 0x34 0x6eb…6ec 0xa6 0x6ec…712 »// LOCAL OFFSET-1,BLANK-62,AREA-SYSTEM« 0x712…713 0x2a 0x713…714 0xa8 0x714…73c »// LOCAL OFFSET-1,DATA-'?2?',AREA-SYSTEM« 0x73c…73d 0x28 0x73d…73e 0xa8 0x73e…766 »// LOCAL OFFSET-9,DATA-'?8?',AREA-SYSTEM« 0x766…767 0x28 0x767…768 0xa9 0x768…791 »// LOCAL OFFSET-25,DATA-'?3?',AREA-SYSTEM« 0x791…792 0x27 0x792…793 0xa9 0x793…7bc »// LOCAL OFFSET-29,DATA-'?4?',AREA-SYSTEM« 0x7bc…7bd 0x27 0x7bd…7be 0xa9 0x7be…7e7 »// LOCAL OFFSET-37,DATA-'?5?',AREA-SYSTEM« 0x7e7…7e8 0x27 0x7e8…7e9 0xa9 0x7e9…812 »// LOCAL OFFSET-44,DATA-'?6?',AREA-SYSTEM« 0x812…813 0x27 0x813…814 0xa9 0x814…83d »// LOCAL OFFSET-51,DATA-'?7?',AREA-SYSTEM« 0x83d…83e 0x27 0x83e…83f 0x8e 0x83f…84d »// LOAD $VAT6R« 0x84d…84e 0x42 0x84e…84f 0xa6 0x84f…875 »// IF ?8?='PRINTER' PRINTER NAME-T6PRT« 0x875…876 0x2a 0x876…877 0xa5 0x877…89c »// ELSE PRINTER NAME-T6PRT,PRIORITY-0« 0x89c…89d 0x2b 0x89d…89e 0x86 0x89e…8a4 »// RUN« 0x8a4…8a5 0x4a 0x8a5…8a6 0x9b 0x8a6…8c1 »// EVALUATE P21='?L'63,4'?'« 0x8c1…8c2 0x09 0x8c2…8c3 0x9c 0x8c3…8df »GET THE REPORTER RETURN CODE« 0x8df…8e0 0x10 0x8e0…8e1 0xa2 0x8e1…903 »// IFF ?21?='0000' #ERR ?21?,3,VSP« 0x903…904 0x2e 0x904…905 0xa0 0x905…925 »// IF ?8?='PRINTER' GOTO ENDGOOD« 0x925…926 0x30 0x926…927 0x9b 0x927…942 »// EVALUATE P20='?L'59,4'?'« 0x942…943 0x09 0x943…944 0x90 0x944…954 »GET THE SPOOL ID« 0x954…955 0x1c 0x955…956 0x99 0x956…96f »COPYPRT SP?20?,?8?,CANCEL« 0x96f…970 0x37 0x970…971 0xab 0x971…99c »// IFF ?CD?='0000' #ERR 3022,3,VSP,'SP?20?'« 0x99c…99d 0x25 0x99d…99e 0x8e 0x99e…9ac »// TAG ENDGOOD« 0x9ac…9ad 0x42 0x9ad…9ae 0xa1 0x9ae…9cf »// IF JOBQ-NO IF EVOKED-NO RETURN« 0x9cf…9d0 0x2f 0x9d0…9d1 0x89 0x9d1…9da »// LOG ON« 0x9da…9db 0x47 0x9db…9dc 0x9e 0x9dc…9fa »// MSG ?USER?,VSP-3023 ?M3023?« 0x9fa…9fb 0x32 0x9fb…9fc 0x8d 0x9fc…a09 »// LOG NORMAL« 0xa09…a0a 0x43 0xa0a…a0b 0x89 0xa0b…a14 »// RETURN« 0xa14…a15 0x47 0xa15…a16 0x00 0xa16…a20 6f 7e 6f f2 6f 40 7b c5 d9 d9 ┆?=?2? #ERR┆ 0xa20…a40 40 f3 f0 f2 f8 6b f3 6b e5 e2 d7 2e ac 61 61 40 c5 d3 e2 c5 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 ┆ 3028,3,VSP Ð// ELSE IFF DATAF1-┆ 0xa40…a60 7d 6f f8 6f 6b 6f c4 c1 e3 c5 6f 7d 40 c7 d6 e3 d6 40 d9 c5 d7 d9 e3 d6 d2 24 9c 61 61 40 c5 d3 ┆'?8?,?DATE?' GOTO REPRTOK æ// EL┆ 0xa60…a80 e2 c5 40 7b c5 d9 d9 40 f3 f0 f2 f0 6b f0 f3 6b e5 e2 d7 6b 6f f8 6f 34 9c c4 c5 d3 c5 e3 c5 40 ┆SE #ERR 3020,03,VSP,?8? æDELETE ┆ 0xa80…aa0 6f f8 6f 6b c6 f1 6b e2 c3 d9 c1 e3 c3 c8 6b 6f c4 c1 e3 c5 6f 34 8e 61 61 40 e3 c1 c7 40 d9 c5 ┆?8?,F1,SCRATCH,?DATE? þ// TAG RE┆ 0xaa0…ac0 d7 d9 e3 d6 d2 42 a5 61 61 40 c9 c6 40 6f f3 6f 7e 7d e4 e2 c5 d9 7d 40 c5 e5 c1 d3 e4 c1 e3 c5 ┆PRTOKâv// IF ?3?='USER' EVALUATE┆ 0xac0…ae0 40 6f f4 7d 6f e4 e2 c5 d9 6f 7d 6f 2b 9c 61 61 40 c5 d3 e2 c5 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 ┆ ?4'?USER?'? æ// ELSE EVALUATE P┆ 0xae0…b00 f4 7e 6f f4 7d c1 d3 d3 7d 6f 34 a6 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f1 6b c2 d3 ┆4=?4'ALL'? w// LOCAL OFFSET-1,BL┆