|
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 - download
Length: 2048 (0x800)
Types: GA21-9182-File
Names: »VSS155«
└─⟦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
└─⟦this⟧
0x000…020 (0,) d7 c1 d5 c1 d3 e8 e9 c5 40 00 00 02 50 00 05 00 00 00 00 40 00 02 00 51 00 01 30 00 00 00 00 00 ┆PANALYZE & é ┆
0x020…040 00 00 00 00 00 00 00 00 80 3d 33 00 00 00 00 00 00 00 00 00 00 00 00 00 96 61 61 40 d3 c9 c2 d9 ┆ Ø o// LIBR┆
0x040…060 c1 d9 e8 40 d5 c1 d4 c5 60 7b d4 e8 d3 c9 c2 3a a2 61 61 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 ┆ARY NAME-#MYLIB s// LIBRARY NAME┆
0x060…080 60 7b d4 e8 d3 c9 c2 6b e2 c5 e2 e2 c9 d6 d5 60 e8 c5 e2 2e 9c 61 61 40 c9 c6 c6 40 c4 e2 d7 d3 ┆-#MYLIB,SESSION-YES æ// IFF DSPL┆
0x080…0a0 e8 60 c9 c7 c3 40 d4 c5 d5 e4 40 d4 e8 d4 f2 f0 f0 34 9b 61 61 40 c9 c6 40 c4 e2 d7 d3 e8 60 c9 ┆Y-IGC MENU MYM200 º// IF DSPLY-I┆
0x0a0…0c0 c7 c3 40 d4 c5 d5 e4 40 d4 e8 c4 f2 f0 f0 35 89 61 61 40 d9 c5 e3 e4 d9 d5 47 00 00 00 00 00 00 ┆GC MENU MYD200 i// RETURNå ┆
0x0c0…0e0 00 00 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 00 d7 7b d7 e3 c6 e5 c1 e2 d7 00 23 81 50 00 0a ┆ Ø Ã P#PTFVASP a& ┆
0x0e0…100 00 00 00 00 40 00 02 00 51 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 99 00 00 00 00 ┆ é Ø r ┆
0x100…120 00 00 00 00 d7 c1 d5 c1 d3 e8 e9 c5 40 00 12 79 50 00 05 00 00 00 00 40 00 02 00 51 00 00 30 00 ┆ PANALYZE `& é ┆
0x120…140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff d7 c1 d5 d3 e9 c1 d3 d3 ┆ PANLZALL┆
0x140…160 40 00 00 06 50 00 15 00 00 00 00 40 00 02 00 51 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ & é ┆
0x160…180 80 3d 66 00 00 00 00 00 00 00 00 00 00 00 00 00 96 61 61 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 ┆Ø Ã o// LIBRARY NAME┆
0x180…1a0 60 7b d4 e8 d3 c9 c2 3a cb 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 7b d4 e8 7b f1 d4 e2 ┆-#MYLIB ô// MEMBER USER1-#MY#1MS┆
0x1a0…1c0 c7 6b d7 d9 d6 c7 d9 c1 d4 f1 60 7b d4 e8 7b f1 d4 e2 c7 6b d7 d9 d6 c7 d9 c1 d4 f2 60 7b d4 e8 ┆G,PROGRAM1-#MY#1MSG,PROGRAM2-#MY┆
0x1c0…1e0 7b f2 d4 e2 c7 6b d3 c9 c2 d9 c1 d9 e8 60 7b d4 e8 d3 c9 c2 05 b6 61 61 40 d3 d6 c3 c1 d3 40 c1 ┆#2MSG,LIBRARY-#MYLIB ¶// LOCAL A┆
0x1e0…200 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d d4 c9 c7 d9 c1 e3 ┆REA-SYSTEM,OFFSET-1,DATA-'MIGRAT┆
0x200…220 c5 7d 6b c2 d3 c1 d5 d2 60 f5 f1 f2 1a b5 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 ┆E',BLANK-512 §// LOCAL AREA-SYST┆
0x220…240 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f3 f2 f7 6b c4 c1 e3 c1 60 7d 6f e4 e2 c5 d9 6f 7d 6b c2 d3 c1 d5 ┆EM,OFFSET-327,DATA-'?USER?',BLAN┆
0x240…260 d2 60 f8 1b b5 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 ┆K-8 §// LOCAL AREA-SYSTEM,OFFSET┆
0x260…280 60 f1 f1 f7 6b c4 c1 e3 c1 60 7d 5b d4 e8 c1 e4 c4 7d 6b c2 d3 c1 d5 d2 60 f8 1b 90 61 61 40 c5 ┆-117,DATA-'$MYAUD',BLANK-8 °// E┆
0x280…2a0 e5 c1 d3 e4 c1 e3 c5 40 d7 f1 7e 7d 04 81 7d 3b a2 61 61 40 c9 c6 c6 40 e2 c5 c3 e4 d9 c9 e3 e8 ┆VALUATE P1=' a' s// IFF SECURITY┆
0x2a0…2c0 60 c1 c3 e3 c9 e5 c5 40 c7 d6 e3 d6 40 e2 c3 d9 c5 c5 d5 2e 9c 61 61 40 c9 c6 40 e2 c5 c3 e4 d9 ┆-ACTIVE GOTO SCREEN æ// IF SECUR┆
0x2c0…2e0 c9 e3 e8 60 e2 40 c7 d6 e3 d6 40 e2 c3 d9 c5 c5 d5 34 95 61 61 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 ┆ITY-S GOTO SCREEN n// EVALUATE P┆
0x2e0…300 f1 7e 7d f2 f1 f0 f1 7d 3b 8d 61 61 40 e3 c1 c7 40 e2 c3 d9 c5 c5 d5 43 c0 61 61 40 c9 c6 40 c4 ┆1='2101' ý// TAG SCREENä{// IF D┆
0x300…320 e2 d7 d3 e8 60 c9 c7 c3 40 d7 d9 d6 d4 d7 e3 40 d4 c5 d4 c2 c5 d9 60 7b d4 e8 5b c6 d4 e3 f1 6b ┆SPLY-IGC PROMPT MEMBER-#MY$FMT1,┆
0x320…340 c6 d6 d9 d4 c1 e3 60 d4 e8 e2 f2 f2 f0 6b d3 c5 d5 c7 e3 c8 60 7d f7 f9 7d 10 c1 61 61 40 c9 c6 ┆FORMAT-MYS220,LENGTH-'79' A// IF┆
0x340…360 c6 40 c4 e2 d7 d3 e8 60 c9 c7 c3 40 d7 d9 d6 d4 d7 e3 40 d4 c5 d4 c2 c5 d9 60 7b d4 e8 7c c6 d4 ┆F DSPLY-IGC PROMPT MEMBER-#MY@FM┆
0x360…380 e3 f1 6b c6 d6 d9 d4 c1 e3 60 d4 e8 e2 f2 f2 f0 6b d3 c5 d5 c7 e3 c8 60 7d f7 f9 7d 0f 9a 61 61 ┆T1,FORMAT-MYS220,LENGTH-'79' ª//┆
0x380…3a0 40 c9 c6 40 6f c3 c4 6f 7e f0 f0 f0 f0 40 c7 d6 e3 d6 40 c5 d5 e3 c5 d9 36 96 61 61 40 c9 c6 40 ┆ IF ?CD?=0000 GOTO ENTER o// IF ┆
0x3a0…3c0 6f c3 c4 6f 7e f2 f0 f0 f3 40 d9 c5 e3 e4 d9 d5 3a aa 61 61 40 c9 c6 40 6f c3 c4 6f 7e f2 f0 f0 ┆?CD?=2003 RETURN ¡// IF ?CD?=200┆
0x3c0…3e0 f4 40 d1 d6 c2 d8 40 f3 6b 7b d4 e8 d3 c9 c2 6b c1 d5 d3 e9 f0 f0 f1 6b d1 d6 c2 d8 26 96 61 61 ┆4 JOBQ 3,#MYLIB,ANLZ001,JOBQ o//┆
0x3e0…400 40 c9 c6 40 6f c3 c4 6f 7e f2 f0 f0 f4 40 d9 c5 e3 e4 d9 d5 3a 96 61 61 40 c9 c6 40 6f c3 c4 6f ┆ IF ?CD?=2004 RETURN o// IF ?CD?┆
0x400…420 (1,) 7e f2 f0 f0 f7 40 d9 c5 e3 e4 d9 d5 3a 8c 61 61 40 e3 c1 c7 40 c5 d5 e3 c5 d9 44 93 61 61 40 c1 ┆=2007 RETURN ð// TAG ENTERàl// A┆
0x420…440 e3 e3 d9 40 d9 c5 d3 c5 c1 e2 c5 60 e8 c5 e2 3d 9d 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 c1 d5 d3 e9 ┆TTR RELEASE-YES ¸// INCLUDE ANLZ┆
0x440…460 f0 f0 f1 6b 7b d4 e8 d3 c9 c2 40 d1 d6 c2 33 89 61 61 40 d9 c5 e3 e4 d9 d5 47 00 00 00 00 00 00 ┆001,#MYLIB JOB i// RETURNå ┆
0x460…480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff d7 d3 c9 e2 e3 c1 d3 d3 40 00 00 06 50 00 0d 00 ┆ PLISTALL & ┆
0x480…4a0 00 00 00 40 00 02 00 51 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3d 99 00 00 00 00 00 ┆ é Ø r ┆
0x4a0…4c0 00 00 00 00 00 00 00 00 96 61 61 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 60 7b d4 e8 d3 c9 c2 3a ┆ o// LIBRARY NAME-#MYLIB ┆
0x4c0…4e0 cb 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 7b d4 e8 7b f1 d4 e2 c7 6b d7 d9 d6 c7 d9 c1 ┆ô// MEMBER USER1-#MY#1MSG,PROGRA┆
0x4e0…500 d4 f1 60 7b d4 e8 7b f1 d4 e2 c7 6b d7 d9 d6 c7 d9 c1 d4 f2 60 7b d4 e8 7b f2 d4 e2 c7 6b d3 c9 ┆M1-#MY#1MSG,PROGRAM2-#MY#2MSG,LI┆
0x500…520 c2 d9 c1 d9 e8 60 7b d4 e8 d3 c9 c2 05 b4 61 61 40 c9 c6 40 c4 e2 d7 d3 e8 60 c9 c7 c3 40 d7 d9 ┆BRARY-#MYLIB ©// IF DSPLY-IGC PR┆
0x520…540 d6 d4 d7 e3 40 d4 c5 d4 c2 c5 d9 60 7b d4 e8 5b c6 d4 e3 f1 6b c6 d6 d9 d4 c1 e3 60 d4 e8 e2 f2 ┆OMPT MEMBER-#MY$FMT1,FORMAT-MYS2┆
0x540…560 f1 f0 1c ac 61 61 40 c5 d3 e2 c5 40 d7 d9 d6 d4 d7 e3 40 d4 c5 d4 c2 c5 d9 60 7b d4 e8 7c c6 d4 ┆10 Ð// ELSE PROMPT MEMBER-#MY@FM┆
0x560…580 e3 f1 6b c6 d6 d9 d4 c1 e3 60 d4 e8 e2 f2 f1 f0 24 b6 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 ┆T1,FORMAT-MYS210 ¶// LOCAL AREA-┆
0x580…5a0 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d d4 c9 c7 d9 c1 e3 c5 7d 6b c2 ┆SYSTEM,OFFSET-1,DATA-'MIGRATE',B┆
0x5a0…5c0 d3 c1 d5 d2 60 f2 f5 f6 1a b5 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 ┆LANK-256 §// LOCAL AREA-SYSTEM,O┆
0x5c0…5e0 c6 c6 e2 c5 e3 60 f3 f2 f7 6b c4 c1 e3 c1 60 7d 6f e4 e2 c5 d9 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1b ┆FFSET-327,DATA-'?USER?',BLANK-8 ┆
0x5e0…600 b5 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 f1 f7 ┆§// LOCAL AREA-SYSTEM,OFFSET-117┆
0x600…620 6b c4 c1 e3 c1 60 7d 5b d4 e8 c1 e4 c4 7d 6b c2 d3 c1 d5 d2 60 f8 1b a7 61 61 40 c9 c6 40 6f c3 ┆,DATA-'$MYAUD',BLANK-8 x// IF ?C┆
0x620…640 c4 6f 7e f0 f0 f0 f0 40 c9 d5 c3 d3 e4 c4 c5 40 d4 e8 d9 c5 d7 d3 e2 e3 6b 7b d4 e8 d3 c9 c2 29 ┆D?=0000 INCLUDE MYREPLST,#MYLIB ┆
0x640…660 96 61 61 40 c9 c6 40 6f c3 c4 6f 7e f2 f0 f0 f3 40 d9 c5 e3 e4 d9 d5 3a af 61 61 40 c9 c6 40 6f ┆o// IF ?CD?=2003 RETURN ®// IF ?┆
0x660…680 c3 c4 6f 7e f2 f0 f0 f4 40 d1 d6 c2 d8 40 f3 6b 7b d4 e8 d3 c9 c2 6b d4 e8 d9 c5 d7 d3 e2 e3 6b ┆CD?=2004 JOBQ 3,#MYLIB,MYREPLST,┆
0x680…6a0 7d 6f e4 e2 c5 d9 6f 7d 21 96 61 61 40 c9 c6 40 6f c3 c4 6f 7e f2 f0 f0 f4 40 d9 c5 e3 e4 d9 d5 ┆'?USER?' o// IF ?CD?=2004 RETURN┆
0x6a0…6c0 3a 96 61 61 40 c9 c6 40 6f c3 c4 6f 7e f2 f0 f0 f7 40 d9 c5 e3 e4 d9 d5 3a 89 61 61 40 d9 c5 e3 ┆ o// IF ?CD?=2007 RETURN i// RET┆
0x6c0…6e0 e4 d9 d5 47 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 00 00 00 00 00 00 00 00 00 d7 c4 e2 d7 d3 ┆URNå Ø PDSPL┆
0x6e0…700 d6 c3 d2 e2 00 23 9f 50 00 01 00 00 00 00 40 00 02 00 51 00 01 30 00 00 00 00 00 00 00 00 00 00 ┆OCKS ¤& é ┆
0x700…720 00 00 00 80 3f 33 00 00 00 00 00 00 00 00 d7 c4 e2 d7 d4 c1 d3 e2 d6 00 23 86 50 00 13 00 00 00 ┆ Ø PDSPMALSO f& ┆
0x720…740 00 40 00 02 00 51 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 ┆ é Ø Ã ┆
0x740…760 00 d7 c4 e2 d7 d4 d5 e4 40 40 00 23 85 50 00 01 00 00 00 00 40 00 02 00 51 00 01 30 00 00 00 00 ┆ PDSPMNU e& é ┆
0x760…780 00 00 00 00 00 00 00 00 00 80 3f 99 00 00 00 00 00 00 00 00 d7 c4 e2 d7 d6 c1 d3 e2 d6 00 23 a0 ┆ Ø r PDSPOALSO µ┆
0x780…7a0 50 00 05 00 00 00 00 40 00 02 00 51 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f cc 00 ┆& é Ø ö ┆
0x7a0…7c0 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x7c0…7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]