{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LOCALNAM)}}
====== LOCALNAM ======
(George Source)

**Macros used:** [[george:macro:ERROR|ERROR]], [[george:macro:HUNT|HUNT]], [[george:macro:JANAL|JANAL]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]]

<code - LOCALNAM.txt>22FL    #LIS  K0LOCALNAM>K0ALLGEO>K0GREATGEO>K0COMMAND  
22^=    #SEG  LOCALNAM                     [ BILL IZATT 
23DW                   8HLOCALNAM   
23YG    [ ENTRY POINT.  THIS LOCATION MUST REMAIN FIXED 
24D6          SEGENTRY K1LOCALNAM,QENTRY1   
24XQ    [   
25CB    [   
25X2    QENTRY1 
26BL          HUNT  2,CPB,CUNI  
26W=          LDX   3  2                   [KEEP COPY OF POINTER
27*W          LDX   5  ANUM(2)  
27TG          BNG   5  QERR                [J IF PARAM. NON EXISTENT
28*6          BZE   5  QERR                [J IF NULL PARAMETER 
28SQ          ANDN  5  #7777               [MASK OUT TYPE CHARS 
29#B          LDN   4  13   
29S2          TXL   5  4
2=?L          BCC      QERR1               [K IF MORE THAN TWELVE CHARS 
2=R=          LDN   2  APARA(2) 
2?=W          LDCH  4  0(2) 
2?QG          TXL   4  SALPHA(1)
2#=6          BCS      QERR1
2#PQ          TXL   4  SEVCHAR(1)   
2*9B          BCC      QERR1               [J IF 1ST CHAR NOT A LETTER  
2*P2          BRN      Z1   
2B8L    Z2    LDCH  4  0(2) 
2BN=          TXL   4  SEVCHAR(1)   
2C7W          BCC      QERR1
2CMG          TXL   4  SALPHA(1)
2D76          BCC      Z1                  [J IF CHAR IS A LETTER   
2DLQ          TXL   4  SNUM(1)  
2F6B          BCS      Z1                  [J IF CHAR IS A DIGIT
2FL2          TXU   4  SPACE(1) 
2G5L          BCC      Z1                  [J IF SPACE CHAR 
2GK=          TXU   4  SMINUS(1)
2H4W          BCS      QERR1               [J IF NOT A MINUS SIGN   
2HJG    Z1    BCHX  2  £
2J46          BCT   5  Z2   
2JHQ          LDN   6  #7777
2K3B          ANDS  6  ANUM(3)  
2KH2          UPPLUS   2
2L2L    QERR  UP                           [PAR MI0SING OR NULL 
2L=D ...QERR1 JANAL    QERR2
2LG= ...      ERROR    JNLFNF   
2LQ4 ...QERR2   
2L^W          UPPLUS   1                   [WRONG FORMAT
2MFG    SEVCHAR        #73  
2M^6    SALPHA         #41  
2NDQ    SNUM        #12 
2NYB    SPACE          #20  
2PD2    SMINUS         #35  
2PXL          MENDAREA 10,K99LOCALNAM   
2QC=    #END
^^^^ ...06223150000200000000
</code>