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

⟦a3f48d1d9⟧

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »SDA55   «

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
    └─⟦93ec53657⟧ 
        └─⟦this⟧ ».SDA55   « 

Text Member

**************************************************************************      
*                                                                        *      
*   THIS PROCEDURE IS EVOKED TO COMPILE WSU PROGRAMS                     *      
*                                                                        *      
* INPUT:                                                                 *      
*   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 CONTAINING PROGRAM TO COMPILE        *      
*   PARAM 4 - LEVEL OF COMPILATION LISTING SELECTED                      *      
*                                                                        *      
**************************************************************************      
// LOCAL AREA-SYSTEM                                                            
// WSU ?3?,?2?,50,NOSTOP,NOLISTS,PROC,N,?4?,Y                                   
// MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1                                          
// IF ?CD?/1008  GOTO FAILURE                                                   
// MSG ?1?,'?3? ?M0850?'                                                        
// GOTO DONE                                                                    
// TAG FAILURE                                                                  
// MSG ?1?,'?3? ?M0851?'                                                        
// TAG DONE                                                                     

Full view