NEWCOMP

(GIN Macro)

Defined in: MACROS DTP

Used in: TPOBJ867

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