|
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: 3072 (0xc00)
Notes: MEMBER_P, Member_Text
Names: »RPGSDA «
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦a01802bb8⟧
└─⟦this⟧ ».RPGSDA «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGSDA'******************** ******************************************************************************* * ******** * 06/13/83 the screen displayed default for # of blocks used by the ******** * work files is changed from '0040' to '40'. the default for ******** * mrt maximum is changed from '00' to '0'. this work is ******** * performed under ptr ev70958. ******** * 06/03/84 The MRO default was written to the LDA - NOMRO ******** * ******** ******************************************************************************* // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB // LOCAL AREA-SYSTEM ************************************************************** * THIS PROCEDURE CANNOT BE RUN FROM THE JOBQ OR BE EVOKED * ************************************************************** // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ // IF PROC-SDA GOTO SDAOK // #ERR 1063,3,RPG // TAG SDAOK // * 1057 ************************************************************** * IF THE PRECEDING PROC WAS AN RPG PROC * * THEN DO NOT INITIALIZE THE LDA. * ************************************************************** // IF '?L'1,3'?'/'RPG' GOTO STORLDA ************************************************************** * BLANK THE LDA AND THEN INITIALIZE * ************************************************************** // LOCAL OFFSET-1,DATA-' NODSMPRINT NOXREF0 NONEP',BLANK-384,+ AREA-SYSTEM // LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK NOOBJECTGEN 40 COMP R96',+ AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM ***************************************************************************** * STORE THE LDA IN PARAMETERS 58 - 60 (SDA USES THE SAME AREA OF THE LDA) * ***************************************************************************** // TAG STORLDA // LOCAL OFFSET-1,DATA-'RPGSDA ',AREA-SYSTEM // EVALUATE P58='?L'1,128'?' // EVALUATE P59='?L'129,128'?' // EVALUATE P60='?L'257,128'?' ************************************ * CALL SDA * ************************************ SDA ,?CLIB? ************************************ * RESTORE THE LDA * ************************************ // LOCAL OFFSET-1,DATA-'?58?',BLANK-384,AREA-SYSTEM // LOCAL OFFSET-129,DATA-'?59?',AREA-SYSTEM // LOCAL OFFSET-257,DATA-'?60?',AREA-SYSTEM ******************************************************************************* * * THIS PROCEDURE IS THE INTERFACE BETWEEN THE SCREEN DESIGN AID * AND THE RPG MENU. IT IS EXECUTED WHEN THE USER SELECTS OPTION 6 FROM * THE RPG MENU. THIS PROCEDURE HAS NO PARAMETERS. * *******************************************************************************
0x000…001 0xd0
0x001…051 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGSDA'******************** «
0x051…052 0xd0
0x052…0a2 »******************************************************************************* «
0x0a2…0a3 0x81
0x0a3…0a4 »*«
0x0a4…0a5 0x46
0x0a5…0a6 0x89
0x0a6…0af »******** «
0x0af…0b0 0x81
0x0b0…0b1 »*«
0x0b1…0b2 0x02
0x0b2…0b3 0xc1
0x0b3…0f4 »06/13/83 the screen displayed default for # of blocks used by the«
0x0f4…0f5 0x03
0x0f5…0f6 0x89
0x0f6…0ff »******** «
0x0ff…100 0x81
0x100…101 »*«
0x101…102 0x0b
0x102…103 0xc4
0x103…147 »work files is changed from '0040' to '40'. the default for ******** «
0x147…148 0x81
0x148…149 »*«
0x149…14a 0x0b
0x14a…14b 0xb5
0x14b…180 »mrt maximum is changed from '00' to '0'. this work is«
0x180…181 0x06
0x181…182 0x89
0x182…18b »******** «
0x18b…18c 0x81
0x18c…18d »*«
0x18d…18e 0x0b
0x18e…18f 0x9c
0x18f…1ab »performed under ptr ev70958.«
0x1ab…1ac 0x1f
0x1ac…1ad 0x89
0x1ad…1b6 »******** «
0x1b6…1b7 0x81
0x1b7…1b8 »*«
0x1b8…1b9 0x02
0x1b9…1ba 0xb7
0x1ba…1f1 »06/03/84 The MRO default was written to the LDA - NOMRO«
0x1f1…1f2 0x0d
0x1f2…1f3 0x89
0x1f3…1fc »******** «
0x1fc…1fd 0x81
0x1fd…1fe »*«
0x1fe…1ff 0x46
0x1ff…200 0x89
0x200…209 »******** «
0x209…20a 0xd0
0x20a…25a »******************************************************************************* «
0x25a…25b 0xa8
0x25b…283 »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB«
0x283…284 0x28
0x284…285 0x94
0x285…299 »// LOCAL AREA-SYSTEM«
0x299…29a 0x3c
0x29a…29b 0xbe
0x29b…2d9 »**************************************************************«
0x2d9…2da 0x12
0x2da…2db 0x81
0x2db…2dc »*«
0x2dc…2dd 0x02
0x2dd…2de 0xb7
0x2de…315 »THIS PROCEDURE CANNOT BE RUN FROM THE JOBQ OR BE EVOKED«
0x315…316 0x03
0x316…317 0x81
0x317…318 »*«
0x318…319 0x12
0x319…31a 0xbe
0x31a…358 »**************************************************************«
0x358…359 0x12
0x359…35a 0xa5
0x35a…37f »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ«
0x37f…380 0x2b
0x380…381 0x9a
0x381…39b »// MSG ?WS?,?M'2100,1,75'?«
0x39b…39c 0x36
0x39c…39d 0x89
0x39d…3a6 »// RETURN«
0x3a6…3a7 0x47
0x3a7…3a8 0x8c
0x3a8…3b4 »// TAG NJOBQ«
0x3b4…3b5 0x44
0x3b5…3b6 0x99
0x3b6…3cf »// IF PROC-SDA GOTO SDAOK«
0x3cf…3d0 0x37
0x3d0…3d1 0x92
0x3d1…3e3 »// #ERR 1063,3,RPG«
0x3e3…3e4 0x3e
0x3e4…3e5 0x8c
0x3e5…3f1 »// TAG SDAOK«
0x3f1…3f2 0x44
0x3f2…3f3 0x89
0x3f3…3fc »// * 1057«
0x3fc…3fd 0x47
0x3fd…3fe 0xbe
0x3fe…43c »**************************************************************«
0x43c…43d 0x12
0x43d…43e 0x81
0x43e…43f »*«
0x43f…440 0x02
0x440…441 0xa5
0x441…466 »IF THE PRECEDING PROC WAS AN RPG PROC«
0x466…467 0x15
0x467…468 0x81
0x468…469 »*«
0x469…46a 0x12
0x46a…46b 0x81
0x46b…46c »*«
0x46c…46d 0x02
0x46d…46e 0x9f
0x46e…48d »THEN DO NOT INITIALIZE THE LDA.«
0x48d…48e 0x1b
0x48e…48f 0x81
0x48f…490 »*«
0x490…491 0x12
0x491…492 0xbe
0x492…4d0 »**************************************************************«
0x4d0…4d1 0x12
0x4d1…4d2 0xa3
0x4d2…4f5 »// IF '?L'1,3'?'/'RPG' GOTO STORLDA«
0x4f5…4f6 0x2d
0x4f6…4f7 0xbe
0x4f7…535 »**************************************************************«
0x535…536 0x12
0x536…537 0x81
0x537…538 »*«
0x538…539 0x02
0x539…53a 0xa1
0x53a…55b »BLANK THE LDA AND THEN INITIALIZE«
0x55b…55c 0x19
0x55c…55d 0x81
0x55d…55e »*«
0x55e…55f 0x12
0x55f…560 0xbe
0x560…59e »**************************************************************«
0x59e…59f 0x12
0x59f…5a0 0x98
0x5a0…5b8 »// LOCAL OFFSET-1,DATA-'«
0x5b8…5b9 0x08
0x5b9…5ba 0x8a
0x5ba…5c4 »NODSMPRINT«
0x5c4…5c5 0x02
0x5c5…5c6 0x9a
0x5c6…5e0 »NOXREF0 NONEP',BLANK-384,+«
0x5e0…5e1 0x0a
0x5e1…5e2 0x8b
0x5e2…5ed »AREA-SYSTEM«
0x5ed…5ee 0x45
0x5ee…5ef 0xab
0x5ef…61a »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK«
0x61a…61b 0x02
0x61b…61c 0x8b
0x61c…627 »NOOBJECTGEN«
0x627…628 0x03
0x628…629 0x82
0x629…62b »40«
0x62b…62c 0x02
0x62c…62d 0x84
0x62d…631 »COMP«
0x631…632 0x02
0x632…633 0x86
0x633…639 »R96',+«
0x639…63a 0x05
0x63a…63b 0x8b
0x63b…646 »AREA-SYSTEM«
0x646…647 0x45
0x647…648 0xb5
0x648…67d »// LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM«
0x67d…67e 0x1b
0x67e…67f 0xb4
0x67f…6b3 »// LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM«
0x6b3…6b4 0x1c
0x6b4…6b5 0xcd
0x6b5…702 »*****************************************************************************«
0x702…703 0x03
0x703…704 0x81
0x704…705 »*«
0x705…706 0x02
0x706…707 0xc7
0x707…74e »STORE THE LDA IN PARAMETERS 58 - 60 (SDA USES THE SAME AREA OF THE LDA)«
0x74e…74f 0x02
0x74f…750 0x81
0x750…751 »*«
0x751…752 0x03
0x752…753 0xcd
0x753…7a0 »*****************************************************************************«
0x7a0…7a1 0x03
0x7a1…7a2 0x8e
0x7a2…7b0 »// TAG STORLDA«
0x7b0…7b1 0x42
0x7b1…7b2 0x9e
0x7b2…7d0 »// LOCAL OFFSET-1,DATA-'RPGSDA«
0x7d0…7d1 0x02
0x7d1…7d2 0x8d
0x7d2…7df »',AREA-SYSTEM«
0x7df…7e0 0x23
0x7e0…7e1 0x9c
0x7e1…7fd »// EVALUATE P58='?L'1,128'?'«
0x7fd…7fe 0x34
0x7fe…7ff 0x9e
0x7ff…81d »// EVALUATE P59='?L'129,128'?'«
0x81d…81e 0x32
0x81e…81f 0x9e
0x81f…83d »// EVALUATE P60='?L'257,128'?'«
0x83d…83e 0x32
0x83e…83f 0xa4
0x83f…863 »************************************«
0x863…864 0x2c
0x864…865 0x81
0x865…866 »*«
0x866…867 0x02
0x867…868 0x88
0x868…870 »CALL SDA«
0x870…871 0x18
0x871…872 0x81
0x872…873 »*«
0x873…874 0x2c
0x874…875 0xa4
0x875…899 »************************************«
0x899…89a 0x2c
0x89a…89b 0x8b
0x89b…8a6 »SDA ,?CLIB?«
0x8a6…8a7 0x45
0x8a7…8a8 0xa4
0x8a8…8cc »************************************«
0x8cc…8cd 0x2c
0x8cd…8ce 0x81
0x8ce…8cf »*«
0x8cf…8d0 0x02
0x8d0…8d1 0x8f
0x8d1…8e0 »RESTORE THE LDA«
0x8e0…8e1 0x11
0x8e1…8e2 0x81
0x8e2…8e3 »*«
0x8e3…8e4 0x2c
0x8e4…8e5 0xa4
0x8e5…909 »************************************«
0x909…90a 0x2c
0x90a…90b 0xb3
0x90b…93e »// LOCAL OFFSET-1,DATA-'?58?',BLANK-384,AREA-SYSTEM«
0x93e…93f 0x1d
0x93f…940 0xab
0x940…96b »// LOCAL OFFSET-129,DATA-'?59?',AREA-SYSTEM«
0x96b…96c 0x25
0x96c…96d 0xab
0x96d…998 »// LOCAL OFFSET-257,DATA-'?60?',AREA-SYSTEM«
0x998…999 0x25
0x999…99a 0xd0
0x99a…9ea »******************************************************************************* «
0x9ea…9eb 0x81
0x9eb…9ec »*«
0x9ec…9ed 0x4f
0x9ed…9ee 0x81
0x9ee…9ef »*«
0x9ef…9f0 0x04
0x9f0…9f1 0xbd
0x9f1…a2e »THIS PROCEDURE IS THE INTERFACE BETWEEN THE SCREEN DESIGN AID«
0xa2e…a2f 0x0e
0xa2f…a30 0x81
0xa30…a31 »*«
0xa31…a32 0x03
0xa32…a33 0x91
0xa33…a44 »AND THE RPG MENU.«
0xa44…a45 0x02
0xa45…a46 0xb2
0xa46…a78 »IT IS EXECUTED WHEN THE USER SELECTS OPTION 6 FROM«
0xa78…a79 0x07
0xa79…a7a 0x81
0xa7a…a7b »*«
0xa7b…a7c 0x03
0xa7c…a7d 0x8d
0xa7d…a8a »THE RPG MENU.«
0xa8a…a8b 0x02
0xa8b…a8c 0xa1
0xa8c…aad »THIS PROCEDURE HAS NO PARAMETERS.«
0xaad…aae 0x1c
0xaae…aaf 0x81
0xaaf…ab0 »*«
0xab0…ab1 0x4f
0xab1…ab2 0xd0
0xab2…b02 »******************************************************************************* «
0xb02…b03 0x00
0xb03…b20 81 5c 02 c7 e2 e3 d6 d9 c5 40 e3 c8 c5 40 d3 c4 c1 40 c9 d5 40 d7 c1 d9 c1 d4 c5 e3 c5 ┆a* GSTORE THE LDA IN PARAMETE┆
0xb20…b40 d9 e2 40 f5 f8 40 60 40 f6 f0 40 4d e2 c4 c1 40 e4 e2 c5 e2 40 e3 c8 c5 40 e2 c1 d4 c5 40 c1 d9 ┆RS 58 - 60 (SDA USES THE SAME AR┆
0xb40…b60 c5 c1 40 d6 c6 40 e3 c8 c5 40 d3 c4 c1 5d 02 81 5c 03 cd 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆EA OF THE LDA) a* ò*************┆
0xb60…b80 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…]
0xba0…bc0 03 8e 61 61 40 e3 c1 c7 40 e2 e3 d6 d9 d3 c4 c1 42 9e 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 ┆ þ// TAG STORLDAâÆ// LOCAL OFFSE┆
0xbc0…be0 e3 60 f1 6b c4 c1 e3 c1 60 7d d9 d7 c7 e2 c4 c1 02 8d 7d 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 23 ┆T-1,DATA-'RPGSDA ý',AREA-SYSTEM ┆
0xbe0…c00 9c 61 61 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f5 f8 7e 7d 6f d3 7d f1 6b f1 f2 f8 7d 6f 7d 34 9e 61 ┆æ// EVALUATE P58='?L'1,128'?' Æ/┆