{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: NEWJOBLIST)}}
====== NEWJOBLIST ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_WELL|MACROS WELL]]
**Used in:**
LH9= ...[
LHNW ...#MAC NEWJOBLIST
LJ8G ...#STR @,%A
LJN6 ...(
LK7Q ...#SKI JWPHASE4<1$1
LKMB ...(
LL72 ...#STR %A
LLLL ...(
LM6= ...! NOT ALLOWED
LMKW ...#EXI
LN5G ...)
LNK6 ...#OPT JDTABLES4=1
LP4Q ...#OPT JDTABLES3=0
LPJB ...)
LQ42 ...#DEF 20?=FACILNO-FACILITIES
LQHL ...#STR %A
LR3= ...#DEF 20?=1
LRGW ...#SKI 20?*(JDTABLES4-JDTABLES3)<1$1
LS2G ...(
LSG6 ...! NO ROOM FOR NEW FACILITY
LS^Q ...#EXI
LTFB ...)
LT^2 ...#SKI JWPHASE4
LWDL ...(
LWY= ...#MEN JOBDATA
LXCW ...#TRA JDTABLES3
LXXG ... 12H%B
LYC6 ...#STR %A
LYWQ ...#DEF 20?=%A*4096
L^BB ...#STR %A
L^W2 ...#SKI
M2*L ...#DEF 20?=FACILITIES*4096^#40000000
M2T= ...#DEF 20?=20?+%C
M3#W ...#STR COUNT,%E
M3SG ...#SKI
M4#6 ...#DEF 20?=20?^#4000
M4RQ ... +20?
M5?B ...#ALT JDTABLES3=0?
M5R2 ...#END
M6=L ...)
M6Q= ...#STR %A
M79W ...#SKI
M7PG ...(
M896 ...#MEN BMSAVJOB
M8NQ ... NEWJOBLI @,JL,%C,%D
M98B ...#SKI JWPHASE4
M9N2 ...(
M=7L ...#MEN JDWRITE
M=M= ... NEWJOBLI @,JD,%C,%D
M?6W ...)
M?LG ...#ALT FACILITIES=FACILITIES+1
M#66 ...)
M#KQ ...#EXI
M*5B ...)
M*K2 ...#TRA %BTEMPLATE1
MB4L ... +34?+0?]+3
MBJ= ... +34?+0?]+%D
MC3W ...#TRA %BTEMPLATE2
MCHG ...#REP 4
MD36 ... +34?+0?]+%D
MDGQ ...#SKI JWPHASE4
MF2B ... +34?+0?]+%D
MF7J ...#UNS FPRJW
MF#Q ... +34?+0?]+%D
MFG2 ...#TRA %BTEMPLATE3
MF^L ... +34?+0?]+3
MGF= ...#TRA %BTEMPLATE3+1+(FACILITIES*3)
MGYW ... %C,+34?+0?-3]+(34?+0?-2]),%D
MHDG ...#END
MHY6 ...#NOR