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

⟦7e8a74a07⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »#SEU    «

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
    └─⟦56d196776⟧ 
        └─⟦this⟧ ».#SEU    «

Text Member

* SEU NAME,TYPE,FORMAT NAME,STMT LENGTH,LIBRARY,DSF NAME                        
// MEMBER USER1-#SE#M1,LIBRARY-#SEULIB                                          
// MEMBER USER2-#SE#M2,LIBRARY-#SEULIB                                          
// MEMBER PROGRAM1-#SE#M1,LIBRARY-#SEULIB                                       
// MEMBER PROGRAM2-#SE#M2,LIBRARY-#SEULIB                                       
// IF JOBQ-YES #ERR 0579,C,SEU                                                  
// IF EVOKED-YES #ERR 0579,C,SEU                                                
// IF ?6?/  GOTO E                                                              
// IF ?1'?6?'?/  GOTO D                                                         
// TAG E                                                                        
// IF ?1?/  GOTO C                                                              
// GOTO D                                                                       
// TAG C                                                                        
// IF DSPLY-IGC GOTO F                                                          
// HELP SEU ?1?,?2'S'?,?3'#SE@XTRA'?,?4?,?5'?CLIB?'?,?6?                        
// RETURN                                                                       
// TAG F                                                                        
// HELP SEU ?1?,?2'S'?,?3'#SE$XTRA'?,?4?,?5'?CLIB?'?,?6?                        
// RETURN                                                                       
// TAG D                                                                        
// * 0104                                                                       
// LOAD #SEU,#SEULIB                                                            
// WORKSTN RESTORE-YES,UNIT-?WS?                                                
// PRINTER NAME-#SEUPRNT                                                        
// RUN                                                                          
// IF DSPLY-IGC GOTO G                                                          
// SEU NAME-?1?,TYPE-?2'S'?,FORMAT-?3'#SE@XTRA'?,LENGTH-?4?,+                   
LIBRARY-?5'?CLIB?'?,DSFNAME-?6?                                                 
// GOTO ENDST                                                                   
// TAG G                                                                        
// SEU NAME-?1?,TYPE-?2'S'?,FORMAT-?3'#SE$XTRA'?,LENGTH-?4?,+                   
LIBRARY-?5'?CLIB?'?,DSFNAME-?6?                                                 
// TAG ENDST                                                                    
// END

Full view