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

⟦da76a0e22⟧ 

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

Derivation

└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
    └─⟦cd453c591⟧ 
        └─⟦this⟧ ».CLRPF   «

Text Member

// LIBRARY NAME-#VASPLIB                           04/24/92                     
// IFF ?1?=  GOTO $ML15                            NO SOURCE NAME SPECIFIED     
// IF JOBQ-NO IF EVOKED-NO  GOTO $ML10                                          
// GOTO $ML15                                      EVOKED BUT NO SRC SPECIFIED  
// TAG $ML10                                                                    
// HELP CLRPF,?1?,?2?                                                           
// RETURN                                                                       
// TAG $ML15                                                                    
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY                                         
// IF  ?1?=                #ERR 2879,23,,' 1CLRPF '   NO SRC NAME SPECIFIED     
// IF  ?1?=        IF ?CD?/1012   RETURN             NO FILE NM - TOOK A "2"    
// IFF DATAF1-?1?          #ERR 1148,23,,?1?         FILE NOT ON DISK           
// IFF DATAF1-?1?  IF ?CD?/1012   RETURN             FILE ¬ ON DISK: TOOK A "2" 
// FILE NAME-VARP,LABEL-?1?,                 PARMS OKAY-ENSURE AVAIL OF FILE    
// IFF ?2?=  DATE-?2?,                       IF A DATE SPEC'D USE IT            
// DISP-OLD,JOB-YES,WAIT-NO                  REST OF THE //FILE DATA            
// IFF ?CD?=2030 IFF ?CD?=2031 GOTO $ML20           FILE WAS AVAIL              
#ERR 1172,123,,?1?                                                              
// IF ?CD?=1011  GOTO $ML15                         TOOK A 1 TO RETRY, LOOP     
// IF ?CD?=1012  RETURN                             TOOK A 2: SKIP STEP         
// TAG $ML20                                        CONTINUE RUNNING PROC       
// * 'CLRPF procedure is running. File being processed - ?1?'                   
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB                                         
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB                                         
// LOAD $VARP,#VASPLIB                                                          
// RUN

Full view