|
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