NEWCOMP [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: NEWCOMP)}}
====== NEWCOMP ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_DTP|MACROS DTP]]

**Used in:** [[george:source:TPOBJ867|TPOBJ867]]

<code - NEWCOMP.mac.txt>
 **?2 ...[??? NEWCOMP SECT DIAG FGN 562 DOC  
 **QL    #MAC  NEWCOMP                      [M.C.D. MANN 
 *B==    [   
 *BPW    [   
 *C9G    [     ************* 
 *CP6    [     *  NEWCOMP  * 
 *D8Q    [     ************* 
 *DNB    [   
 *F82    [   
 *FML    #DEF  31?=1?                       [REMEMBER THE LISTING LEVEL  
 *FSS ...#STR  *,%A  
 *G22 ...(   
 *G7=    #LIS  %B+0                         [DEFAULT LISTING LEVEL IS ZERO   
 *GLW          USEFILE  %A                  [ASSIGN AND COMPILE THE FILE 
 *H6G ...#PAG                               ["*" NOT SPECIFIED   
 *J5Q    #LIS  31?   
 *JKB ...#EXI
 *K52 ...)   
 *KJL ...#LIS  %C+0                         [DEFAULT LISTING LEVEL IS ZERO   
 *PFL    #SKI  ADTP                         [IF THIS IS AN INTERNAL RESTORE  
 *PQH    (                                  [ASSIGN THE HIGHEST PUBLIC GENERATION
 *Q3D    #SKI  ADTPFH                       [OF THE SPECIFIED FILE   
 *Q#* ...#GEO  MENDIT  *,%B,FH              [USING *FH IF ADTPFH=1   
 *QK=    #SKI  ADTPFH<1$1
 *R4W ...#GEO  MENDIT  *,%B                 [OR *CR OTHERWISE
 *RJG ...      USEFILE                      [COMPILE THE FILE
 *S46 ...#PAG                               ["*" IS SPECIFIED
 *SHQ ...#LIS  31?   
 BBLL    #EXI
 BB^6    )   
 BCDQ ...!     NEWCOMP PARAMETER ERROR: "*" [ERROR USE OF "*" EXTERNALLY 
 BCYB    #DEF  30?+32=0                     [FAIL THE MENDIT 
 BCYJ ...#NOR
</code>