{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: COMP)}}
====== COMP ======
(GIN Macro)

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

**Used in:** 

<code - COMP.mac.txt>
 BD9Q ...[??? COMP SECT DIAG FGN 571 DOC 
 BD9Y ...#MAC  COMP                         [M. DRUKKER  
 BD=6 ...[   
 BD=# ...[   
 BD=G ...[     **********
 BD=N ...[     *  COMP  *
 BD=W ...[     **********
 BD?4 ...[   
 BD?= ...[   
 BD?D ...#ALT  K0%B=%E+0                    [SET THE SEGMENT LISTING LEVEL   
 BD?L ...#STR  *,%A  
 BD?S ...#SKI
 BD#2 ...(   
 BD#8 ...#SKI  ADTP                         [IF THIS IS AN INTERNAL RESTORE  
 BD#B ...(                                  [AND THE FIRST PARAMETER IS "*"  
 BD#J ...#SKI  ADTPFH                       [ASSIGN THE HIGHEST PUBLIC GENERATION
 BD#Q ...#GEO  MENDIT  *,%B%C,FH            [OF THE SPECIFIED FILE   
 BD#Y ...#SKI  ADTPFH<1$1                   [USING *FH IF ADTPFH = 1 
 BD*6 ...#GEO  MENDIT  *,%B%C               [OR *CR OTHERWISE
 BD*# ...      USEFILE                      [COMPILE THE FILE
 BD*G ...#EXI
 BD*N ...)   
 BD*W ...!     MENDIT PARAMETER ERROR: "*"  [ERROR USE OF "*" EXTERNALLY 
 BDB4 ...#DEF  30?+32=0                     [FAIL THE MENDIT 
 BDD2    #EXI
 BDXL    )   
 BFC=    #STR  %F
 BFWW    #SKI
 BGBG    (   
 BGW6    #SKI  ADTP                         [IF THIS IS A SIMPLE MENDIT...   
 BH*Q    (   
 BHTB    #STR  %A
 BH^S    (   
 BJ6=    #SKI  ADTPFH                       [INTERNALLY...   
 BJ=N    #GEO  MENDIT  %A.%B%C(%D),,FH      [ASSIGN THE FILE ON *FH1 
 BJC6    #SKI  ADTPFH<1$1
 BJHJ    #GEO  MENDIT  %A.%B%C(%D)          [OR ON *CR1 AS APPROPRIATE   
 BJN2    )   
 BJSL    #STR  %A
 BK#=    #SKI
 BKDN    (   
 BKK6    #SKI  ADTPFH
 BKPJ    #GEO  MENDIT  %A%B%C(%D),,FH
 BKW2    #SKI  ADTPFH<1$1
 BL2D    #GEO  MENDIT  %A%B%C(%D)
 BL6W    )   
 BL?G    )   
 BLR6    #SKI  ADTP<1$1  
 BM=Q    (   
 BMCY ...#SKI  ADTPFH                       [ASSIGN VIA *FH1 
 BMK6 ...(   
 BMQB    #STR  %A
 BN=2 ...#GEO  AS *FH1,%A.%B%C(%D)          [EXTERNALLY: JUST ASSIGN THE FILE
 BNPL    #STR  %A
 BP9=    #SKI
 BPNW ...#GEO  AS *FH1,%A%B%C(%D)
 BQ8G    )   
 BQ=4 ...#SKI  ADTPFH<1$1                   [ASSIGN VIA *CR1 
 BQ?L ...(   
 BQ*8 ...#STR  %A
 BQBQ ...#GEO  AS *CR1,%A.%B%C(%D)          [EXTERNALLY: JUST ASSIGN THE FILE
 BQD# ...#STR  %A
 BQFW ...#SKI
 BQHD ...#GEO  AS *CR1,%A%B%C(%D)
 BQK2 ...)   
 BQLJ ...)   
 BQLW ...#STR  %D
 BQM8 ...#DEF  89?=%D                       [GENERATION  
 BQMG ...#STR  %C
 BQMS ...#DEF  92?=%C                       [VERSION 
 BQN6          USEFILE                      [AND COMPILE THE SOURCE FILE 
 BR7Q    #EXI
 BRMB    )   
 BS72    #STR  TAPE,%F   
 BSLL    #SKI
 BT6=    (                                  [IF CALLED FROM TMENDIT  
 BTKW    #POS  MT7,%B%C                     [POSITION THE TAPE   
 BW5G    #USE  MT7                          [AND COMPILE THE FILE
 BWK6    #EXI
 BX4Q    )   
 BXJB    #SKI  ADTP  
 BY42    #SKI                               [IN EXTERNAL RESTORES ONLY   
 BYHL    (   
 B^3=    !     MENDIT PARAMETER ERROR: %F   [ERROR ANY OTHER %F  
 B^GW    #DEF  30?+32=0                     [AND FAIL THE MENDIT 
 C22G    #EXI
 C2G6    )   
 C2^Q    #STR  A,%F  
 C3FB    #SKI
 C3^2    (                                  [IF CALLED FROM MENDITA  
 C44X    #SKI  ADTPFH
 C48S    #GEO  MENDITA  %A,%B,%C,%D,FH   
 C4#P    #SKI  ADTPFH<1$1
 C4DL    #GEO  MENDITA  %A,%B,%C,%D         [ASSIGN LATEST ACCEPTABLE VERSION
 C4Y=          USEFILE                      [AND COMPILE THE FILE
 C5CW    #EXI
 C5XG    )   
 C6C6    #STR  P,%F  
 C6WQ    #SKI
 C7BB    (                                  [IF CALLED FROM MENDITP  
 C7G?    #SKI  ADTPFH
 C7L8    #GEO  MENDITP  %B,%C,FH 
 C7Q5    #SKI  ADTPFH<1$1
 C7W2    #GEO  MENDITP  %B,%C               [ASSIGN THE LATEST PUBLIC VERSION
 C8*L          USEFILE                      [AND COMPILE THE FILE
 C8T=    #EXI
 C9#W    )   
 C9SG    #STR  MP,%F 
 C=#6    #SKI
 C=RQ    (                                  [IF CALLED FROM MENDITMP 
 C=XM    #SKI  ADTPFH
 C?3J    #GEO  MENDITMP  %B,%C,%D,FH 
 C?7F    #SKI  ADTPFH<1$1
 C??B    #GEO  MENDITMP  %B,%C,%D           [ASSIGN LATEST MIN PUBLIC VERSION
 C?R2          USEFILE                      [AND COMPILE THE FILE
 C#=L    #EXI
 C#Q=    )   
 C#RM ...#STR  F,%F  
 C#T4 ...#SKI
 C#WF ...(                                  [IF CALLED FROM MENDITF  
 C#XW ...#SKI  ADTPFH
 C#^? ...#GEO  MENDITF  %B,%C,FH 
 C*2N ...#SKI  ADTPFH<1$1
 C*45 ...#GEO  MENDITF  %B,%C               [ASSIGN THE LATEST PUBLIC VERSION
 C*5G ...      USEFILE                      [AND COMPILE THE FILE
 C*6X ...#EXI
 C*8# ...)   
 C*9W    !     MENDIT PARAMETER ERROR: %F   [ERROR ANY OTHER %F  
 C*PG    #DEF  30?+32=0                     [AND FAIL THE MENDIT 
 CB96    #NOR
</code>