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

⟦66f623e0c⟧ 

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

Derivation

└─⟦631246a38⟧ Bits:30009808 REF.NO PWG83 PGM 5727-QU6 FEAT9074 QUERY/36 DA Z250-0037-2 REL/LEV 05.01 SEQ. 1/3 DISKET 2S 96TPI INTERNAL 88.01.08 31
    └─⟦758c30d4d⟧ 
        └─⟦this⟧ ».#QDBLD  «

Text Member

// EVALUATE P4=#QD?WS?                                                          
// EVALUATE P5=?4?RP?2? P6=?4?DF?2? P7=?4?LB?2? P8=?4?PG?2?                     
// IF ?1?=2 GOTO SFGR                                                           
// IFF DATAF1-?7? GOTO BLDLIB                                                   
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE LABEL-?7?,UNIT-F1,USERLIBS-YES                                        
// END                                                                          
// TAG BLDLIB                                                                   
// LOAD $MAINT                                                                  
// RUN                                                                          
// ALLOCATE LIBRNAME-?7?,LIBRSIZE-?3?,STATUS-CREATE,DIRSIZE-5                   
// END                                                                          
// LOCAL DATA-'?5??6??7??8?',OFFSET-15,BLANK-32,AREA-SYSTEM                     
// RETURN                                                                       
// TAG SFGR                                                                     
// LOAD $SFGR                                                                   
// RUN                                                                          
// LOADMBR NAME-?8?,REPLACE-YES                                                 
// INOUT PRINT-NO,INLIB-?7?,OUTLIB-?7?,HALT-NO                                  
// CREATE SOURCE-?8?,NUMBER-?3?                                                 
// END                                                                          
// RETURN

Full view