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

⟦eb8aba435⟧ 

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

Derivation

└─⟦27db88c4d⟧ Bits:30009807 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0323-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 011 of 011
    └─⟦5f03407d3⟧ 
        └─⟦this⟧ ».ONLPD   «

Text Member

***   PROCEDURE TO START ON-LINE PD   ***                                                                               
// LOCAL AREA-USER                               * SPECIFY WS LDA.                                                      
// LOCAL OFFSET-1,BLANK-300                      * CLEAR THE LDA.                                                       
// LOCAL OFFSET-84,DATA-'?WS?'                   * SET IN THE WS ID.                                                    
// IFF DATAF1-TRACEF?WS? GOTO NODEL              * DEFINE FILE FOR TRACE.                                               
// LOAD $DELET                                   * CLEAR OLD TRACE.                                                     
// RUN                                                                                                                  
// SCRATCH UNIT-F1,LABEL-TRACEF?WS?                                                                                     
// END                                                                                                                  
// TAG NODEL                                                                                                            
// IF DATAF1-TRACEF?WS? GOTO WEIT                * SET UP NEW TRACE FILE.                                               
// LOAD $FBLD                                                                                                           
// RUN                                                                                                                  
// FILE LABEL-TRACEF?WS?,ATTRIB-S,RECL-18,RECORDS-100,LOCATION-A1,RETAIN-T,                                             
//            EXTEND-50                                                                                                 
// END                                                                                                                  
// TAG WEIT                                                                                                             
// SWITCH XXXX0XXX                                                                                                      
// LOCAL OFFSET-34,DATA-'O#ONLPD  PD1.SCR2'  * O = ON-LINE PD, LIBRARY NAME, SCREEN KEY FILE                            
// LOCAL OFFSET-62,DATA-'PD1.SCRNPD1.CTRL'   * SCREEN AND CONTROL FILE NAMES                                            
// RESET PSP                                     * START THE PD SCREEN DRIVER.

Full view