DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦66178a60a⟧ 

    Length: 1536 (0x600)
    Notes: MEMBER_P, Member_Text
    Names: »SDA     «

Derivation

└─⟦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     «

Text Member

********************************************************************************
*                                                                              *
*   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

Full view