CREATEB [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CREATEB)}}
====== CREATEB ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_RM59B|MACROS RM59B]]

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

<code - 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
</code>