(GIN Macro)
Defined in: MACROS DTP
Used in:
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