|
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: »CLRPF «
└─⟦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
└─⟦cd453c591⟧
└─⟦this⟧ ».CLRPF «
// LIBRARY NAME-#VASPLIB 04/24/92 // IFF ?1?= GOTO $ML15 NO SOURCE NAME SPECIFIED // IF JOBQ-NO IF EVOKED-NO GOTO $ML10 // GOTO $ML15 EVOKED BUT NO SRC SPECIFIED // TAG $ML10 // HELP CLRPF,?1?,?2? // RETURN // TAG $ML15 // MEMBER USER1-##MSG2,LIBRARY-#LIBRARY // IF ?1?= #ERR 2879,23,,' 1CLRPF ' NO SRC NAME SPECIFIED // IF ?1?= IF ?CD?/1012 RETURN NO FILE NM - TOOK A "2" // IFF DATAF1-?1? #ERR 1148,23,,?1? FILE NOT ON DISK // IFF DATAF1-?1? IF ?CD?/1012 RETURN FILE ¬ ON DISK: TOOK A "2" // FILE NAME-VARP,LABEL-?1?, PARMS OKAY-ENSURE AVAIL OF FILE // IFF ?2?= DATE-?2?, IF A DATE SPEC'D USE IT // DISP-OLD,JOB-YES,WAIT-NO REST OF THE //FILE DATA // IFF ?CD?=2030 IFF ?CD?=2031 GOTO $ML20 FILE WAS AVAIL #ERR 1172,123,,?1? // IF ?CD?=1011 GOTO $ML15 TOOK A 1 TO RETRY, LOOP // IF ?CD?=1012 RETURN TOOK A 2: SKIP STEP // TAG $ML20 CONTINUE RUNNING PROC // * 'CLRPF procedure is running. File being processed - ?1?' // MEMBER USER1-##VSP1,LIBRARY-#VASPLIB // MEMBER USER2-##VSP2,LIBRARY-#VASPLIB // LOAD $VARP,#VASPLIB // RUN
0x000…001 0x98 0x001…019 »// LIBRARY NAME-#VASPLIB« 0x019…01a 0x1b 0x01a…01b 0x88 0x01b…023 »04/24/92« 0x023…024 0x15 0x024…025 0x8b 0x025…030 »// IFF ?1?=« 0x030…031 0x02 0x031…032 0x8a 0x032…03c »GOTO $ML15« 0x03c…03d 0x1c 0x03d…03e 0x98 0x03e…056 »NO SOURCE NAME SPECIFIED« 0x056…057 0x05 0x057…058 0x9a 0x058…072 »// IF JOBQ-NO IF EVOKED-NO« 0x072…073 0x02 0x073…074 0x8a 0x074…07e »GOTO $ML10« 0x07e…07f 0x2a 0x07f…080 0x8d 0x080…08d »// GOTO $ML15« 0x08d…08e 0x26 0x08e…08f 0x9b 0x08f…0aa »EVOKED BUT NO SRC SPECIFIED« 0x0aa…0ab 0x02 0x0ab…0ac 0x8c 0x0ac…0b8 »// TAG $ML10« 0x0b8…0b9 0x44 0x0b9…0ba 0x95 0x0ba…0cf »// HELP CLRPF,?1?,?2?« 0x0cf…0d0 0x3b 0x0d0…0d1 0x89 0x0d1…0da »// RETURN« 0x0da…0db 0x47 0x0db…0dc 0x8c 0x0dc…0e8 »// TAG $ML15« 0x0e8…0e9 0x44 0x0e9…0ea 0xa7 0x0ea…111 »// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY« 0x111…112 0x29 0x112…113 0x85 0x113…118 »// IF« 0x118…119 0x02 0x119…11a 0x84 0x11a…11e »?1?=« 0x11e…11f 0x10 0x11f…120 0x98 0x120…138 »#ERR 2879,23,,' 1CLRPF '« 0x138…139 0x03 0x139…13a 0x95 0x13a…14f »NO SRC NAME SPECIFIED« 0x14f…150 0x05 0x150…151 0x85 0x151…156 »// IF« 0x156…157 0x02 0x157…158 0x84 0x158…15c »?1?=« 0x15c…15d 0x08 0x15d…15e 0x8c 0x15e…16a »IF ?CD?/1012« 0x16a…16b 0x03 0x16b…16c 0x86 0x16c…172 »RETURN« 0x172…173 0x0d 0x173…174 0x97 0x174…18b »NO FILE NM - TOOK A "2"« 0x18b…18c 0x04 0x18c…18d 0x91 0x18d…19e »// IFF DATAF1-?1?« 0x19e…19f 0x0a 0x19f…1a0 0x91 0x1a0…1b1 »#ERR 1148,23,,?1?« 0x1b1…1b2 0x09 0x1b2…1b3 0x90 0x1b3…1c3 »FILE NOT ON DISK« 0x1c3…1c4 0x0b 0x1c4…1c5 0x91 0x1c5…1d6 »// IFF DATAF1-?1?« 0x1d6…1d7 0x02 0x1d7…1d8 0x8c 0x1d8…1e4 »IF ?CD?/1012« 0x1e4…1e5 0x03 0x1e5…1e6 0x86 0x1e6…1ec »RETURN« 0x1ec…1ed 0x0d 0x1ed…1ee 0x9b 0x1ee…209 »FILE ¬ ON DISK: TOOK A "2" « 0x209…20a 0x9c 0x20a…226 »// FILE NAME-VARP,LABEL-?1?,« 0x226…227 0x11 0x227…228 0x9f 0x228…247 »PARMS OKAY-ENSURE AVAIL OF FILE« 0x247…248 0x04 0x248…249 0x8b 0x249…254 »// IFF ?2?=« 0x254…255 0x02 0x255…256 0x89 0x256…25f »DATE-?2?,« 0x25f…260 0x17 0x260…261 0x97 0x261…278 »IF A DATE SPEC'D USE IT« 0x278…279 0x0c 0x279…27a 0x9b 0x27a…295 »// DISP-OLD,JOB-YES,WAIT-NO« 0x295…296 0x12 0x296…297 0x97 0x297…2ae »REST OF THE //FILE DATA« 0x2ae…2af 0x0c 0x2af…2b0 0xa9 0x2b0…2d9 »// IFF ?CD?=2030 IFF ?CD?=2031 GOTO $ML20« 0x2d9…2da 0x0b 0x2da…2db 0x8e 0x2db…2e9 »FILE WAS AVAIL« 0x2e9…2ea 0x0e 0x2ea…2eb 0x92 0x2eb…2fd »#ERR 1172,123,,?1?« 0x2fd…2fe 0x3e 0x2fe…2ff 0x8f 0x2ff…30e »// IF ?CD?=1011« 0x30e…30f 0x02 0x30f…310 0x8a 0x310…31a »GOTO $ML15« 0x31a…31b 0x19 0x31b…31c 0x97 0x31c…333 »TOOK A 1 TO RETRY, LOOP« 0x333…334 0x05 0x334…335 0x8f 0x335…344 »// IF ?CD?=1012« 0x344…345 0x02 0x345…346 0x86 0x346…34c »RETURN« 0x34c…34d 0x1d 0x34d…34e 0x93 0x34e…361 »TOOK A 2: SKIP STEP« 0x361…362 0x09 0x362…363 0x8c 0x363…36f »// TAG $ML20« 0x36f…370 0x28 0x370…371 0x95 0x371…386 »CONTINUE RUNNING PROC« 0x386…387 0x07 0x387…388 0xbd 0x388…3c5 »// * 'CLRPF procedure is running. File being processed - ?1?'« 0x3c5…3c6 0x13 0x3c6…3c7 0xa7 0x3c7…3ee »// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB« 0x3ee…3ef 0x29 0x3ef…3f0 0xa7 0x3f0…417 »// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB« 0x417…418 0x29 0x418…419 0x96 0x419…42f »// LOAD $VARP,#VASPLIB« 0x42f…430 0x3a 0x430…431 0x86 0x431…437 »// RUN« 0x437…438 0x4a 0x438…439 0x00 0x439…440 d3 f1 f5 1c 98 d5 d6 ┆L15 qNO┆ 0x440…460 40 e2 d6 e4 d9 c3 c5 40 d5 c1 d4 c5 40 e2 d7 c5 c3 c9 c6 c9 c5 c4 05 9a 61 61 40 c9 c6 40 d1 d6 ┆ SOURCE NAME SPECIFIED ª// IF JO┆ 0x460…480 c2 d8 60 d5 d6 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 d5 d6 02 8a c7 d6 e3 d6 40 5b d4 d3 f1 f0 2a 8d ┆BQ-NO IF EVOKED-NO «GOTO $ML10 ý┆ 0x480…4a0 61 61 40 c7 d6 e3 d6 40 5b d4 d3 f1 f5 26 9b c5 e5 d6 d2 c5 c4 40 c2 e4 e3 40 d5 d6 40 e2 d9 c3 ┆// GOTO $ML15 ºEVOKED BUT NO SRC┆ 0x4a0…4c0 40 e2 d7 c5 c3 c9 c6 c9 c5 c4 02 8c 61 61 40 e3 c1 c7 40 5b d4 d3 f1 f0 44 95 61 61 40 c8 c5 d3 ┆ SPECIFIED ð// TAG $ML10àn// HEL┆ 0x4c0…4e0 d7 40 c3 d3 d9 d7 c6 6b 6f f1 6f 6b 6f f2 6f 3b 89 61 61 40 d9 c5 e3 e4 d9 d5 47 8c 61 61 40 e3 ┆P CLRPF,?1?,?2? i// RETURNåð// T┆ 0x4e0…500 c1 c7 40 5b d4 d3 f1 f5 44 a7 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 7b 7b d4 e2 c7 f2 ┆AG $ML15àx// MEMBER USER1-##MSG2┆