(George Source)
Macros used: BITDEFS
22FL # COMPS SJ MIKE PUTNAM FILESTORE 22^= #OPT JNLOK=0 23DW #OPT JNLOK1=0 23YG #OPT BILASJ=JNLOK1 24D6 24XQ #OPT JOURMIN=16 25CB #OPT JSJSIZE=50 25X2 26BL #OPT BFSJ=JNLOK 26W= #OPT BFSJ1=JNLOK 27*W #OPT INCSJ=JNLOK 27TG #OPT JNLCH=BFSJ^INCSJ 28*6 28SQ #OPT BMJ=JNLOK [BACMAP SJ CODE 29#B #OPT BMSJ=JNLOK [BM SJ MESSAGES 29S2 #OPT JNLPM=JNLOK [D. RUSBRIDGE 2=?L #OPT JNLPM1=JNLOK1 2=R= #OPT JNL=JNLOK 2?=W #OPT JNL1=JNLOK 2?QG #OPT JNLPACK=JNLOK 2#=6 #OPT JNLSTART=JNLOK1 2#PQ #OPT EMSJNL=0 [CENTRALISATION OF EMS MESSAGES 2*9B #OPT JNLMS2=JNLOK1 2*P2 #OPT ARETLO=0 2B8L #OPT JNLPER=JNLOK1 2BN= #OPT ALFSJ=JNLOK1 2C7W #OPT JNLENG=JNLOK1 2CMG 2D76 # L BASU 2DLQ # IDENTIFIERS FOR THE NEW BUDGET EXTRACODES 2F6B #OPT JOURNAL=JNLOK1 2FL2 #SKI JOURNAL 2G5L ( 2GK= #OPT K0BEXTSJ=0 2H4W #OPT K6BEXTSJ=K6ALLGEO 2HJG ) 2J46 # L BASU 2JHQ # IDENTIFIERS FOR SJMESS AND EXTRACODES 2K3B #OPT JNLMEXT=JNLOK1 2KH2 #SKI JNLMEXT 2L2L ( 2LG= #OPT K0SJMESS=0 2L^W #OPT K0MEXTSJ=0 2MFG #OPT K0MEXTSJ=0 2M^6 #OPT K6SJMESS=K6ALLGEO 2NDQ #OPT K6MEXTSJ=K6ALLGEO 2NYB ) 2PD2 2PXL # DEFS FOR GMON/JRNAL BLOCK 2QC= #DEF JWAITER=A1 2QWW #DEF JRECHEAD1=JWAITER+1 2RBG #DEF JRECHEAD2=JRECHEAD1+1 2RW6 #DEF JCATS=JRECHEAD2+1 2S*Q #DEF JJOBNO=JCATS+1 2STB #DEF JPACKORG=JJOBNO+1 2T*2 #DEF JMESSAGE=JPACKORG+1 2TSL 2W#= # BIT IDENTIFIERS FOR JSWITCH1 WORD IN JOUNAL ACT BLOCK 2WRW # 2X?G ... BITDEFS JSWITCH1,0,BJFILOPEN,BJFILINIT,BJFILREADY,BJFILSWITCH 2XR6 ^^^^ ...22022562002100000000