|
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: 768 (0x300)
Notes: MEMBER_P, Member_Text
Names: »SECEDIT «
└─⟦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⟧ ».SECEDIT «
// IF EVOKED-YES #ERR 5995,3,SYS,SECEDIT // IF JOBQ-YES #ERR 5995,3,SYS,SECEDIT // IFF ?1'USERID'?/USERID IFF ?1?/RESOURCE IFF ?1?/COMM IFF ?1?/OFFICE + IFF ?1?/RESFLDR IFF ?1?/PASSTHRU #ERR 6820,3,SYS // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?1?',BLANK-8 // IFF ?1?/RESFLDR IFF ?1?/OFFICE GOTO CONTINUE // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?2?',BLANK-8 // TAG CONTINUE // LIBRARY NAME-0 // MEMBER USER1-##MSG2 // * 5785 // MEMBER USER1-##MSG1,USER2-##MSG2 // IF ?1?/USERID LOAD $PRUED // ELSE IF ?1?/COMM LOAD $PRCED // ELSE IF ?1?/RESOURCE LOAD $RREDT // ELSE IF ?1?/PASSTHRU LOAD $PRUED // ELSE LOAD $RRTED // RUN
0x000…001 0xa8 0x001…029 »// IF EVOKED-YES #ERR 5995,3,SYS,SECEDIT« 0x029…02a 0x28 0x02a…02b 0xa6 0x02b…051 »// IF JOBQ-YES #ERR 5995,3,SYS,SECEDIT« 0x051…052 0x2a 0x052…053 0xc8 0x053…09b »// IFF ?1'USERID'?/USERID IFF ?1?/RESOURCE IFF ?1?/COMM IFF ?1?/OFFICE +« 0x09b…09c 0x08 0x09c…09d 0x03 0x09d…09e 0xa0 0x09e…0be »IFF ?1?/RESFLDR IFF ?1?/PASSTHRU« 0x0be…0bf 0x03 0x0bf…0c0 0x8f 0x0c0…0cf »#ERR 6820,3,SYS« 0x0cf…0d0 0x1b 0x0d0…0d1 0xb0 0x0d1…101 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?1?',BLANK-8« 0x101…102 0x20 0x102…103 0xaf 0x103…132 »// IFF ?1?/RESFLDR IFF ?1?/OFFICE GOTO CONTINUE« 0x132…133 0x21 0x133…134 0xb0 0x134…164 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?2?',BLANK-8« 0x164…165 0x20 0x165…166 0x8f 0x166…175 »// TAG CONTINUE« 0x175…176 0x41 0x176…177 0x91 0x177…188 »// LIBRARY NAME-0« 0x188…189 0x3f 0x189…18a 0x96 0x18a…1a0 »// MEMBER USER1-##MSG2« 0x1a0…1a1 0x3a 0x1a1…1a2 0x89 0x1a2…1ab »// * 5785« 0x1ab…1ac 0x47 0x1ac…1ad 0xa3 0x1ad…1d0 »// MEMBER USER1-##MSG1,USER2-##MSG2« 0x1d0…1d1 0x2d 0x1d1…1d2 0x9c 0x1d2…1ee »// IF ?1?/USERID LOAD $PRUED« 0x1ee…1ef 0x34 0x1ef…1f0 0x9f 0x1f0…20f »// ELSE IF ?1?/COMM LOAD $PRCED« 0x20f…210 0x31 0x210…211 0xa3 0x211…234 »// ELSE IF ?1?/RESOURCE LOAD $RREDT« 0x234…235 0x2d 0x235…236 0xa3 0x236…259 »// ELSE IF ?1?/PASSTHRU LOAD $PRUED« 0x259…25a 0x2d 0x25a…25b 0x93 0x25b…26e »// ELSE LOAD $RRTED« 0x26e…26f 0x3d 0x26f…270 0x86 0x270…276 »// RUN« 0x276…277 0x4a 0x277…278 0x00 0x278…280 00 40 00 02 00 51 00 0c ┆␣ ␣ ␣é␣ ┆ 0x280…2a0 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 00 d7 e5 c1 e2 d7 d3 d6 ┆ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø Ã␣␣␣␣␣␣␣␣PVASPLO┆ 0x2a0…2c0 c1 c4 00 23 5f 50 00 b2 00 00 00 00 40 00 02 00 51 00 14 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆AD␣ ¬&␣¥␣␣␣␣ ␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆ 0x2c0…2e0 00 80 3f 99 00 00 00 00 00 00 00 00 d7 e5 c1 e2 d7 d9 d7 c7 c3 00 23 20 50 00 44 00 00 00 00 40 ┆␣Ø r␣␣␣␣␣␣␣␣PVASPRPGC␣ &␣à␣␣␣␣ ┆ 0x2e0…300 00 02 00 51 00 0a 30 00 00 00 20 92 04 04 08 57 40 00 00 00 80 55 e4 00 00 00 00 00 00 00 00 ff ┆␣ ␣é␣ ␣␣␣ k ï ␣␣␣ØíU␣␣␣␣␣␣␣␣ ┆