|
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
0x000…001 0x91 0x001…012 »// LIBRARY NAME-0« 0x012…013 0x37 0x013…014 0x88 0x014…01c »00080400« 0x01c…01d 0x96 0x01d…033 »// MEMBER USER1-##MSG1« 0x033…034 0x32 0x034…035 0x88 0x035…03d »00080500« 0x03d…03e 0xa4 0x03e…062 »// IF JOBQ-YES #ERR 4710,C,,PASSTHRU« 0x062…063 0x24 0x063…064 0x88 0x064…06c »00080600« 0x06c…06d 0xa6 0x06d…093 »// IF EVOKED-YES #ERR 4710,C,,PASSTHRU« 0x093…094 0x22 0x094…095 0x88 0x095…09d »00080700« 0x09d…09e 0x8a 0x09e…0a8 »// IF ?6?=« 0x0a8…0a9 0x02 0x0a9…0aa 0x92 0x0aa…0bc »EVALUATE P6='NONE'« 0x0bc…0bd 0x2a 0x0bd…0be 0x88 0x0be…0c6 »00081000« 0x0c6…0c7 0x8a 0x0c7…0d1 »// IF ?7?=« 0x0d1…0d2 0x02 0x0d2…0d3 0x92 0x0d3…0e5 »EVALUATE P7='NONE'« 0x0e5…0e6 0x2a 0x0e6…0e7 0x88 0x0e7…0ef »00081000« 0x0ef…0f0 0x8a 0x0f0…0fa »// IF ?8?=« 0x0fa…0fb 0x02 0x0fb…0fc 0x97 0x0fc…113 »EVALUATE P8='RMTUSRPRF'« 0x113…114 0x25 0x114…115 0x88 0x115…11d »00081000« 0x11d…11e 0x8a 0x11e…128 »// IF ?9?=« 0x128…129 0x02 0x129…12a 0x97 0x12a…141 »EVALUATE P9='RMTUSRPRF'« 0x141…142 0x25 0x142…143 0x88 0x143…14b »00081000« 0x14b…14c 0xa4 0x14c…170 »// IF ?10?= EVALUATE P10='RMTUSRPRF'« 0x170…171 0x24 0x171…172 0x88 0x172…17a »00081000« 0x17a…17b 0x9e 0x17b…199 »// IF ?11?= EVALUATE P11='YES'« 0x199…19a 0x2a 0x19a…19b 0x88 0x19b…1a3 »00081000« 0x1a3…1a4 0x9b 0x1a4…1bf »// IF ?11?='NO ' GOTO NOMSG« 0x1bf…1c0 0x2d 0x1c0…1c1 0x88 0x1c1…1c9 »00081000« 0x1c9…1ca 0x9a 0x1ca…1e4 »// IF ?11?='NO' GOTO NOMSG« 0x1e4…1e5 0x2e 0x1e5…1e6 0x88 0x1e6…1ee »00081000« 0x1ee…1ef 0xa0 0x1ef…20f »// IFF ?11?='YES' #ERR 4133,,,11« 0x20f…210 0x28 0x210…211 0x88 0x211…219 »00081000« 0x219…21a 0x96 0x21a…230 »// MEMBER USER1-##MSG2« 0x230…231 0x32 0x231…232 0x88 0x232…23a »00080800« 0x23a…23b 0x97 0x23b…252 »// * ' PASSTHRU?M5500?'« 0x252…253 0x31 0x253…254 0x88 0x254…25c »00080900« 0x25c…25d 0x8c 0x25d…269 »// TAG NOMSG« 0x269…26a 0x3c 0x26a…26b 0x88 0x26b…273 »00082200« 0x273…274 0x97 0x274…28b »// IF ?1?= GOTO HELPTAG« 0x28b…28c 0x31 0x28c…28d 0x88 0x28d…295 »00081000« 0x295…296 0xa1 0x296…2b7 »// IFF ?4?= IFT ?3?= GOTO HELPTAG« 0x2b7…2b8 0x27 0x2b8…2b9 0x88 0x2b9…2c1 »00081200« 0x2c1…2c2 0x8a 0x2c2…2cc »// LOG OFF« 0x2cc…2cd 0x3e 0x2cd…2ce 0x88 0x2ce…2d6 »00081200« 0x2d6…2d7 0xa9 0x2d7…300 »// LOCAL OFFSET-1,BLANK-*ALL,AREA-SYSTEM,« 0x300…301 0x1f 0x301…302 0x88 0x302…30a »00081500« 0x30a…30b 0x82 0x30b…30d »//« 0x30d…30e 0x07 0x30e…30f 0xb4 0x30f…343 »DATA-'?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?'« 0x343…344 0x0b 0x344…345 0x88 0x345…34d »00081700« 0x34d…34e 0x8d 0x34e…35b »// LOG NORMAL« 0x35b…35c 0x3b 0x35c…35d 0x88 0x35d…365 »00081200« 0x365…366 0x8d 0x366…373 »// LOAD #WPIN« 0x373…374 0x3b 0x374…375 0x88 0x375…37d »00081900« 0x37d…37e 0x86 0x37e…384 »// RUN« 0x384…385 0x42 0x385…386 0x88 0x386…38e »00082000« 0x38e…38f 0x89 0x38f…398 »// RETURN« 0x398…399 0x3f 0x399…39a 0x88 0x39a…3a2 »00082100« 0x3a2…3a3 0x8e 0x3a3…3b1 »// TAG HELPTAG« 0x3b1…3b2 0x3a 0x3b2…3b3 0x88 0x3b3…3bb »00082200« 0x3bb…3bc 0xbb 0x3bc…3f7 »// HELP PASSTHRU,?1?,?2?,?3?,?4?,?5?,?6?,,?8?,?9?,?10?,?11?« 0x3f7…3f8 0x0d 0x3f8…3f9 0x88 0x3f9…401 »00082500« 0x401…402 0x89 0x402…40b »// RETURN« 0x40b…40c 0x3f 0x40c…40d 0x88 0x40d…415 »00082600« 0x415…416 0x00 0x416…420 f0 f8 f0 f4 f0 f0 96 61 61 40 ┆080400o// ┆ 0x420…440 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 7b 7b d4 e2 c7 f1 32 88 f0 f0 f0 f8 f0 f5 f0 f0 a4 61 61 ┆MEMBER USER1-##MSG1 h00080500u//┆ 0x440…460 40 c9 c6 40 d1 d6 c2 d8 60 e8 c5 e2 40 7b c5 d9 d9 40 f4 f7 f1 f0 6b c3 6b 6b d7 c1 e2 e2 e3 c8 ┆ IF JOBQ-YES #ERR 4710,C,,PASSTH┆ 0x460…480 d9 e4 24 88 f0 f0 f0 f8 f0 f6 f0 f0 a6 61 61 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 e8 c5 e2 40 7b c5 ┆RU h00080600w// IF EVOKED-YES #E┆ 0x480…4a0 d9 d9 40 f4 f7 f1 f0 6b c3 6b 6b d7 c1 e2 e2 e3 c8 d9 e4 22 88 f0 f0 f0 f8 f0 f7 f0 f0 8a 61 61 ┆RR 4710,C,,PASSTHRU h00080700«//┆ 0x4a0…4c0 40 c9 c6 40 6f f6 6f 7e 02 92 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f6 7e 7d d5 d6 d5 c5 7d 2a 88 f0 f0 ┆ IF ?6?= kEVALUATE P6='NONE' h00┆ 0x4c0…4e0 f0 f8 f1 f0 f0 f0 8a 61 61 40 c9 c6 40 6f f7 6f 7e 02 92 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f7 7e 7d ┆081000«// IF ?7?= kEVALUATE P7='┆ 0x4e0…500 d5 d6 d5 c5 7d 2a 88 f0 f0 f0 f8 f1 f0 f0 f0 8a 61 61 40 c9 c6 40 6f f8 6f 7e 02 97 c5 e5 c1 d3 ┆NONE' h00081000«// IF ?8?= pEVAL┆