|
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: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »SDA50 «
└─⟦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
└─⟦93ec53657⟧
└─⟦this⟧ ».SDA50 «
****************************************************************************** * * * THIS PROCEDURE CHECKS FOR COMPILE OPTION AND EVOKES SDA55 * * IF Y (YES) OR 0 OR 1 OR 2 (WSU LISTING XREF LEVEL OPTION) * * TO START WSU COMPILATION OF SDA GENERATED OUTPUT SOURCE * * * * INPUT: * * LDA CONTAINS NAMES OF OUTPUT SOURCE LIBRARY AND MEMBER AND OPTION * * * * OUTPUT: * * PARAM 1 - WORKSTATION ID OF SDA REQUESTOR * * PARAM 2 - NAME OF SOURCE LIBRARY IN WHICH MEMBER TO COMPILE RESIDES * * PARAM 3 - NAME OF SOURCE MEMBER TO COMPILE * * PARAM 4 - LEVEL OF WSU COMPILATION LISTING SELECTED * * * ****************************************************************************** // LOCAL AREA-SYSTEM // IF ?L'58,1'?/Y EVOKE SDA55 ?WS?,?L'105,8'?,?L'113,8'?,1 // IFF ?L'58,1'?/0 IFF ?L'58,1'?/1 IFF ?L'58,1'?/2 GOTO DONE // EVOKE SDA55 ?WS?,?L'105,8'?,?L'113,8'?,?L'58,1'? // TAG DONE // LOCAL OFFSET-58,DATA-'N',AREA-SYSTEM