CREATEB

(GIN Macro)

Used in: ASSIGN860, BACKMASS860, BMOUTPUT867, BMSAVJOB864, BMSJRNL866, COMPCHAN84, CONSET864, COPYB867, CREALEX864, CREATE867, DEWELL867, EDIT867, ENWELL867, INRESTAR84, LIBREQC867, LISTDEV866, LISTDIR867, LISTSTAR867, MAKEDIR84, NEWDIR867, NEWINST867, PERFCHAP866, PERFPASS864, PREPREAD867, PRINT70, SAVE864, SAVEJOB865, SCEDIT84, SETIDF867, SJOPEN863, TRAPLIST864, WA864, WHTSTAT867, WLC867

CREATEB.mac.txt

 537B ...[??? CREATEB SECT FILE FGN 6 DOC
 53M2    #MAC  CREATEB   
 53WS ...[     THIS MACRO SETS UP A GENERAL PURPOSE FILE/CREATE BLOCK
 546L          SETNCORE CREALEN,1,FILE,CREATE
 54L=    #MOD  %A
 555W    #SKI
 55KG    (   
 5656    #STR  %A,1  
 56JQ          LDX   %A 1
 574B    )   
 57J2          ADN   1  A1   
 583L          STOZ     0(1) 
 58H=          LDX   0  1
 592W          ADN   1  1
 59GG          MOVE  0  CREALEN-1
 5=26    #STR  1,%A  
 5=FQ    #SKI
 5=^B          SBN   1  A1+1 
 5?F2    #STR  1,%A  
 5?YL          LDX   1  FX1  
 5#D=    #NOR