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

⟦60b40198f⟧ 

    Length: 1280 (0x500)
    Notes: MEMBER_P, Member_Text
    Names: »#QDMP   «

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⟧ ».#QDMP   «

Text Member

* #QDMP FILENAME,FORMAT,RPGNAME,SORT/NOSORT/DISPLAY SOURCE,CATL,LIBNAME,        
*  MASTERNAME,USERLIB,UTILTYPE,DEFAULT NAME,FILL CHAR                           
// IFF ?9?/L IFF ?2?/ IF LOAD-'?2?,?8?' #ERR 0276,C,QRY                         
// IFF ?9?/L IFF ?4?/ IF SOURCE-'?4?,?8?' #ERR 0277,C,QRY                       
// IF ?5?/ GOTO NOCHECK                                                         
// IFF ?5'NN'?/NN IFF ?5?/NY IFF ?5?/YN IFF ?5?/YY IFF ?5?/GO #ERR 0205,C,QRY   
// IFF ?5?/NN IF ?6?/ #ERR 0214,C,QRY                                           
// IFF ?5?/NN IFF ?5?/NY IFF SOURCE-'?6?,?8?' #ERR 0206,C,QRY                   
// IF ?5?/NY IF SOURCE-'?6?,?8?' #ERR 0204,C,QRY                                
// TAG NOCHECK                                                                  
// IF ?5?/ IFF ?6?/ IFF ?5'Y'?/ IFF SOURCE-'?6?,?8?' EVALUATE P5=''             
// IFF ?9?/L IFF ?4?/ IF ?4?/?6? #ERR 0275,C,QRY                                
// IFF SOURCE-'?3R'0215'?,?8?' #ERR 0216,C,QRY                                  
// LOAD #QDMP                                                                   
// WORKSTN RESTORE-YES,UNIT-?WS?                                                
// PRINTER NAME-#QDPRINT                                                        
// RUN                                                                          
// QRY FL-?1?,FT-?2?,RG-?3?,DS-?4?,SP-?5?,SN-?6?,MF-?7?,LB-?8?,+                
UT-?9??11?,DF-?10?                                                              
// END                                                                          
// IF ?9?/L RETURN                                                              
// IF ?L'12,1'?/S RETURN                                                        
// LOAD $SFGR                                                                   
// RUN                                                                          
// IF ?2?/ LOADMBR NAME-?10?,REPLACE-YES                                        
// ELSE LOADMBR NAME-?2?                                                        
// INOUT PRINT-NO,INLIB-?8?,OUTLIB-?8?,HALT-NO                                  
// IF ?4?/ CREATE SOURCE-?10?,NUMBER-?L'9,3'?                                   
// ELSE CREATE SOURCE-?4?,NUMBER-?L'9,3'?                                       
// END                                                                          
// IFF ?4?/ RETURN                                                              
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE NAME-?10?,LIBRARY-S,LIBRNAME-?8?                                      
// END

Full view