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

⟦98cfe9395⟧ 

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

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

Text Member

* THIS PROCEDURE PRINTS THE WORKSTATION CONFIGURATION                                                                   
// PRINTER NAME-#PRINT                           * OUTPUT FILE NAME.                                                    
// MEMBER  USER1-##MSGC,USER2-#CN#H2             * USER MEMBER DEFINITION.                                              
// LOCAL AREA-SYSTEM                             * SWITCH TO SYSTEM LDA.                                                
// LOCAL OFFSET-1,BLANK-40                       * BLANK THE USED DATA AREA.                                            
// LOCAL OFFSET-1,DATA-'.MASTER DEVICES'         * SPECIFY CONFIGURATION PRINT                                          
// LOCAL OFFSET-23,DATA-'.SYSTEM '               * OPTION.                                                              
// LOAD $CNPRT                                   * LOAD & RUN CNFIG PRINT PROG.                                         
// RUN                                                                                                                  
// LOCAL AREA-USER                               * RETURN TO USER LDA                                                   
// RESET PSP                                     * RESTART SCREEN DRIVER

Full view