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

⟦eda445119⟧ 

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

Derivation

└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
    └─⟦41ed29fcc⟧ 
        └─⟦this⟧ ».ENTER   «

Text Member

**************************************************** CHANGED 10/12/83 *         
*  ENTER  FILENAME, PROGRAM NAME, FILE DEFINITION,                    *         
*         NUMBER OF RECORDS, FILL CHARACTER, SOURCE PROCESSING,       *         
*         DFU SOURCE NAME, , USER LIB, DSP FORMAT SOURCE,             *         
*         LABEL ON DISK                                               *         
*                                                                     *         
* REQUIRED PARAMETERS                                                 *         
*                                                                     *         
*   1 - FILE NAME                                                     *         
*   2 - PROGRAM NAME                                                  *         
*   3 - FILE DEFINITION SOURCE MEMBER                                 *         
*   4 - NUMBER OF RECORDS                                             *         
*                                                                     *         
***********************************************************************         
// IFF ENTER/?64? IFF JOBQ-YES IFF EVOKED-YES IF ?1?/ GOTO CALLHELP             
// ELSE IFF ENTER/?64? IFF JOBQ-YES IFF EVOKED-YES IF ?2?/ GOTO CALLHELP        
// ELSE IFF ENTER/?64? IFF JOBQ-YES IFF EVOKED-YES IF ?4?/ GOTO CALLHELP        
// IFF ?9'?CLIB?'?/ LIBRARY NAME-#DFULIB                                        
// EVALUATE P13=?11?                                                            
#ENTER *ALL                                                                     
// RETURN                                                                       
// TAG CALLHELP                                                                 
HELP ENTER,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9'?CLIB?'?,?10?,?11?

Full view