|
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: 1536 (0x600)
Notes: MEMBER_P, Member_Text
Names: »SDA «
└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
└─⟦059c4c04f⟧
└─⟦this⟧ ».SDA «
******************************************************************************** * * * SDA PROCEDURE: * * PARM 1 - SOURCE MEMBER NAME TO PROCESS * * PARM 2 - INPUT LIBRARY NAME * * PARM 3 - $SFGR LOAD MEMBER NAME -- S/34 COMPATIBILITY ONLY * * PARM 4 - YES/Y/NO/N/PARTIAL KEYWORD FOR $SFGR PRINTING * * PARM 5 - SDA SOURCE OUTPUT LIBRARY NAME * * PARM 6 - SFGR LOAD OUTPUT LIBRARY NAME * * * * @@IGC - RELEASE 2 IGC SUPPORT * ******************************************************************************** // MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1,LIBRARY-#SDALIB // IF EVOKED-YES #ERR 0015,C,SDA // IF JOBQ-YES #ERR 0015,C,SDA // LOCAL OFFSET-1,DATA-'SDA S SA1?WS?',AREA-SYSTEM // IF DSPLY-IGC LOCAL OFFSET-12,DATA-'I',AREA-SYSTEM @@IGC // LOCAL OFFSET-16,BLANK-65,AREA-SYSTEM BLANK CONTROL AREAS // LOCAL OFFSET-16,DATA-'?CLIB?',AREA-SYSTEM SET UP DEFAULT AREA: CURLIB // LOCAL OFFSET-32,DATA-'?5?',AREA-SYSTEM OSL // LOCAL OFFSET-40,DATA-'?6?',AREA-SYSTEM OLL // LOCAL OFFSET-48,DATA-'?4'NO'?',AREA-SYSTEM PRINT // IF ?3?/ LOCAL OFFSET-56,DATA-'N',AREA-SYSTEM COMPILE // ELSE LOCAL OFFSET-56,DATA-'Y',AREA-SYSTEM // LOCAL OFFSET-65,DATA-'?2?',AREA-SYSTEM SET UP ACTIVE AREA: ISL // LOCAL OFFSET-73,DATA-'?1?',AREA-SYSTEM MEMBER // LIBRARY NAME-#SDALIB // INCLUDE SDAS
0x000…001 0xd0
0x001…051 »********************************************************************************«
0x051…052 0x81
0x052…053 »*«
0x053…054 0x4e
0x054…055 0x81
0x055…056 »*«
0x056…057 0x81
0x057…058 »*«
0x058…059 0x03
0x059…05a 0x8e
0x05a…068 »SDA PROCEDURE:«
0x068…069 0x3d
0x069…06a 0x81
0x06a…06b »*«
0x06b…06c 0x81
0x06c…06d »*«
0x06d…06e 0x03
0x06e…06f 0xa6
0x06f…095 »PARM 1 - SOURCE MEMBER NAME TO PROCESS«
0x095…096 0x25
0x096…097 0x81
0x097…098 »*«
0x098…099 0x81
0x099…09a »*«
0x09a…09b 0x03
0x09b…09c 0x9b
0x09c…0b7 »PARM 2 - INPUT LIBRARY NAME«
0x0b7…0b8 0x30
0x0b8…0b9 0x81
0x0b9…0ba »*«
0x0ba…0bb 0x81
0x0bb…0bc »*«
0x0bc…0bd 0x03
0x0bd…0be 0xba
0x0be…0f8 »PARM 3 - $SFGR LOAD MEMBER NAME -- S/34 COMPATIBILITY ONLY«
0x0f8…0f9 0x11
0x0f9…0fa 0x81
0x0fa…0fb »*«
0x0fb…0fc 0x81
0x0fc…0fd »*«
0x0fd…0fe 0x03
0x0fe…0ff 0xb6
0x0ff…135 »PARM 4 - YES/Y/NO/N/PARTIAL KEYWORD FOR $SFGR PRINTING«
0x135…136 0x15
0x136…137 0x81
0x137…138 »*«
0x138…139 0x81
0x139…13a »*«
0x13a…13b 0x03
0x13b…13c 0xa7
0x13c…163 »PARM 5 - SDA SOURCE OUTPUT LIBRARY NAME«
0x163…164 0x24
0x164…165 0x81
0x165…166 »*«
0x166…167 0x81
0x167…168 »*«
0x168…169 0x03
0x169…16a 0xa6
0x16a…190 »PARM 6 - SFGR LOAD OUTPUT LIBRARY NAME«
0x190…191 0x25
0x191…192 0x81
0x192…193 »*«
0x193…194 0x81
0x194…195 »*«
0x195…196 0x4e
0x196…197 0x81
0x197…198 »*«
0x198…199 0x81
0x199…19a »*«
0x19a…19b 0x03
0x19b…19c 0x9d
0x19c…1b9 »@@IGC - RELEASE 2 IGC SUPPORT«
0x1b9…1ba 0x2e
0x1ba…1bb 0x81
0x1bb…1bc »*«
0x1bc…1bd 0xd0
0x1bd…20d »********************************************************************************«
0x20d…20e 0xb6
0x20e…244 »// MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1,LIBRARY-#SDALIB«
0x244…245 0x1a
0x245…246 0x90
0x246…256 »// IF EVOKED-YES«
0x256…257 0x03
0x257…258 0x8f
0x258…267 »#ERR 0015,C,SDA«
0x267…268 0x2e
0x268…269 0x8e
0x269…277 »// IF JOBQ-YES«
0x277…278 0x03
0x278…279 0x8f
0x279…288 »#ERR 0015,C,SDA«
0x288…289 0x30
0x289…28a 0x9b
0x28a…2a5 »// LOCAL OFFSET-1,DATA-'SDA«
0x2a5…2a6 0x05
0x2a6…2a7 0x96
0x2a7…2bd »S SA1?WS?',AREA-SYSTEM«
0x2bd…2be 0x1a
0x2be…2bf 0xb4
0x2bf…2f3 »// IF DSPLY-IGC LOCAL OFFSET-12,DATA-'I',AREA-SYSTEM«
0x2f3…2f4 0x12
0x2f4…2f5 0x85
0x2f5…2fa »@@IGC«
0x2fa…2fb 0x05
0x2fb…2fc 0xa7
0x2fc…323 »// LOCAL OFFSET-16,BLANK-65,AREA-SYSTEM«
0x323…324 0x09
0x324…325 0x93
0x325…338 »BLANK CONTROL AREAS«
0x338…339 0x0d
0x339…33a 0xac
0x33a…366 »// LOCAL OFFSET-16,DATA-'?CLIB?',AREA-SYSTEM«
0x366…367 0x04
0x367…368 0x94
0x368…37c »SET UP DEFAULT AREA:«
0x37c…37d 0x02
0x37d…37e 0x86
0x37e…384 »CURLIB«
0x384…385 0x04
0x385…386 0xa9
0x386…3af »// LOCAL OFFSET-32,DATA-'?5?',AREA-SYSTEM«
0x3af…3b0 0x1d
0x3b0…3b1 0x83
0x3b1…3b4 »OSL«
0x3b4…3b5 0x07
0x3b5…3b6 0xa9
0x3b6…3df »// LOCAL OFFSET-40,DATA-'?6?',AREA-SYSTEM«
0x3df…3e0 0x1d
0x3e0…3e1 0x83
0x3e1…3e4 »OLL«
0x3e4…3e5 0x07
0x3e5…3e6 0xad
0x3e6…413 »// LOCAL OFFSET-48,DATA-'?4'NO'?',AREA-SYSTEM«
0x413…414 0x19
0x414…415 0x85
0x415…41a »PRINT«
0x41a…41b 0x05
0x41b…41c 0x8a
0x41c…426 »// IF ?3?/«
0x426…427 0x03
0x427…428 0xa4
0x428…44c »LOCAL OFFSET-56,DATA-'N',AREA-SYSTEM«
0x44c…44d 0x15
0x44d…44e 0x87
0x44e…455 »COMPILE«
0x455…456 0x03
0x456…457 0x87
0x457…45e »// ELSE«
0x45e…45f 0x06
0x45f…460 0xa4
0x460…484 »LOCAL OFFSET-56,DATA-'Y',AREA-SYSTEM«
0x484…485 0x1f
0x485…486 0xa9
0x486…4af »// LOCAL OFFSET-65,DATA-'?2?',AREA-SYSTEM«
0x4af…4b0 0x07
0x4b0…4b1 0x93
0x4b1…4c4 »SET UP ACTIVE AREA:«
0x4c4…4c5 0x03
0x4c5…4c6 0x83
0x4c6…4c9 »ISL«
0x4c9…4ca 0x07
0x4ca…4cb 0xa9
0x4cb…4f4 »// LOCAL OFFSET-73,DATA-'?1?',AREA-SYSTEM«
0x4f4…4f5 0x1d
0x4f5…4f6 0x86
0x4f6…4fc »MEMBER«
0x4fc…4fd 0x04
0x4fd…4fe 0x97
0x4fe…515 »// LIBRARY NAME-#SDALIB«
0x515…516 0x39
0x516…517 0x8f
0x517…526 »// INCLUDE SDAS«
0x526…527 0x41
0x527…528 0x00
0x528…540 e2 c6 c7 d9 40 d7 d9 c9 d5 e3 c9 d5 c7 15 81 5c 81 5c 03 a7 d7 c1 d9 d4 ┆SFGR PRINTING a*a* xPARM┆
0x540…560 40 f5 40 60 40 e2 c4 c1 40 e2 d6 e4 d9 c3 c5 40 d6 e4 e3 d7 e4 e3 40 d3 c9 c2 d9 c1 d9 e8 40 d5 ┆ 5 - SDA SOURCE OUTPUT LIBRARY N┆
0x560…580 c1 d4 c5 24 81 5c 81 5c 03 a6 d7 c1 d9 d4 40 f6 40 60 40 e2 c6 c7 d9 40 d3 d6 c1 c4 40 d6 e4 e3 ┆AME a*a* wPARM 6 - SFGR LOAD OUT┆
0x580…5a0 d7 e4 e3 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 25 81 5c 81 5c 4e 81 5c 81 5c 03 9d 7c 7c c9 c7 ┆PUT LIBRARY NAME a*a*+a*a* ¸@@IG┆
0x5a0…5c0 c3 40 60 40 d9 c5 d3 c5 c1 e2 c5 40 f2 40 c9 c7 c3 40 e2 e4 d7 d7 d6 d9 e3 2e 81 5c d0 5c 5c 5c ┆C - RELEASE 2 IGC SUPPORT a*}***┆
0x5c0…5e0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆********************************┆
[…0x1…]