|
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: »PASSTHRU«
└─⟦7674f3f85⟧ Bits:30009796 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 002 of 002
└─⟦f57023a34⟧
└─⟦this⟧ ».PASSTHRU«
// LIBRARY NAME-0 00080400 // MEMBER USER1-##MSG1 00080500 // IF JOBQ-YES #ERR 4710,C,,PASSTHRU 00080600 // IF EVOKED-YES #ERR 4710,C,,PASSTHRU 00080700 // IF ?6?= EVALUATE P6='NONE' 00081000 // IF ?7?= EVALUATE P7='NONE' 00081000 // IF ?8?= EVALUATE P8='RMTUSRPRF' 00081000 // IF ?9?= EVALUATE P9='RMTUSRPRF' 00081000 // IF ?10?= EVALUATE P10='RMTUSRPRF' 00081000 // IF ?11?= EVALUATE P11='YES' 00081000 // IF ?11?='NO ' GOTO NOMSG 00081000 // IF ?11?='NO' GOTO NOMSG 00081000 // IFF ?11?='YES' #ERR 4133,,,11 00081000 // MEMBER USER1-##MSG2 00080800 // * ' PASSTHRU?M5500?' 00080900 // TAG NOMSG 00082200 // IF ?1?= GOTO HELPTAG 00081000 // IFF ?4?= IFT ?3?= GOTO HELPTAG 00081200 // LOG OFF 00081200 // LOCAL OFFSET-1,BLANK-*ALL,AREA-SYSTEM, 00081500 // DATA-'?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?' 00081700 // LOG NORMAL 00081200 // LOAD #WPIN 00081900 // RUN 00082000 // RETURN 00082100 // TAG HELPTAG 00082200 // HELP PASSTHRU,?1?,?2?,?3?,?4?,?5?,?6?,,?8?,?9?,?10?,?11? 00082500 // RETURN 00082600