JLTEMPLATE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: JLTEMPLATE)}}
====== JLTEMPLATE ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_WELL|MACROS WELL]]

**Used in:** [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:JDWRITE867|JDWRITE867]]

<code - JLTEMPLATE.mac.txt>
 DFTQ ...#     THE FOLLOWING MACRO IS USED IN BMSAVJOB AND JDWRITE   
 DG*B ...#     TO DEFINE RECORD 0 OF :SYSTEM.JOBLIST.
 DGT2 ...#   
 DH#L ...#MAC  JLTEMPLATE
 DHS= ...      +JLRECLEN 
 DJ?W ...      SEGENTRY %ATEMPLATE1  
 DJRG ...#STR  %B
 DK?6 ...#DEF  %B=0? 
 DKQQ ...      +FACILITIES*3+JLFIXLEN
 DL=B ...MJL1  +JLRECLEN^#40000000   
 DLQ2 ...      +MJL2-MJL1
 DM9L ...      +JLUSER   
 DMP= ...      +JLJOBNAME
 DN8W ...      +JLARRIVED
 DNNG ...      +JLPROPNO 
 DP86 ...#SKI  JWPHASE4<1$1  
 DPMQ ...      #40000000 
 DQ7B ...#SKI  JWPHASE4  
 DQ9^ ...(   
 DQ#J ...#UNS  FPRJW 
 DQC7 ...      #40000002 
 DQFQ ...#UNS  FPRJW 
 DQJ* ...#SKI
 DQM2 ...      #40000001 
 DQWS ...)   
 DR6L ...      SEGENTRY %ATEMPLATE2  
 DRL= ...      +JLSTAT   
 DS5W ...      +JLBUDGETS
 DSKG ...      +JLASSOCS 
 DT56 ...      +JLRESTPTR
 DTJQ ...#SKI  JWPHASE4  
 DW4B ...      +JLDFIND  
 DW9J ...#UNS  FPRJW 
 DWBQ ...      +JLSTATX  
 DWJ2 ...      SEGENTRY %ATEMPLATE3  
 DX3L ...MJL2  +FACILITIES*3 
 DXH= ...      1,+JLURG,1
 DY2W ...      5,+JLJT,1 
 DYGG ...      8,+JLDEADD,3  
 D^26 ...      3,+JLESD,1
 D^FQ ...      2,+JLEST,1
 D^^B ...      SEGENTRY %ATEMPLATE4  
 F2F2 ...      6,+JLPERIS,16 
 F2YL ...      4,+JLMAXSIZE,1
 F3D= ...#GAP  FACILNO-FACILITIES*3  
 F3XW ...#NOR
</code>