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

⟦ff3b84fa6⟧ 

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

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

Text Member

* PRINT PD SEQUENCE TRACE.                                                                                              
// * ' '                                                                                                                
// * 'KEY IN THE WS-ID OF THE DISPLAY WHICH RAN THE ON-LINE PROBLEM DETERMINATION'                                      
// * ' (IE.:W1) '                                                                                                       
// LOCAL OFFSET-215,DATA-'?R?'                   * WHICH WS RAN PD FOR FILENAME                                         
// IF DATAF1-TRACEFIL DELETE TRACEFIL,F1,REMOVE                                                                         
// LOAD PSPTRC                                   * LOAD PRINT PROGRAM                                                   
// FILE NAME-TRACEFIL,LABEL-TRACEF?L'215,2'?,DISP-SHR  * TRACE FILE NAME                                                
// RUN                                                                                                                  
// * ' '                                                                                                                
// * 'DO YOU WANT A PRINTOUT OF THE SCREENS'                                                                            
// * 'IF YES    ----> KEY IN  YES'                                                                                      
// IFF ?R?/YES GOTO END                                                                                                 
// PSPTRPRI                                                                                                             
// TAG END

Full view