zOs/TX/WK600LOA

$*(
     submit a job on different systems
         to load tables
$*)
call compRun '@', 'DSN.MAREC.TX(wk600ins)'
$=paFr=1
$=paTo=8
$=sys=0
$;
$>.jclSub()
$<=/parm/
$*( A   0     1
    B   2     3
    C   4     4
$*) D   5     6
$/parm/
$@for parm $@/parmLine/
     parse value $parm with jCha tFrom tTo
     $=sys = 1 + (sys // 4)
     $=jCha=- jCha
     $=job=A540769$jCha
     $@=/jcl/
//$job JOB (CP00,KE50),                                                 00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG,SYSTEM=S1$sys
//S1       EXEC PGM=DSNUTILB,PARM='$subsys,$job.LOAD'                   00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=$pds(${mpr}TMP),DISP=SHR
//SYSIN    DD *
     $@do ty = tFrom to tTo $@=/table/
          $= tx =- right(ty, 3, 0)
TEMPLATE TIN$tx
     DSN('A540769.RECUN.DGDB9998.A600A190.P&PA..UN2')
     DISP(SHR,KEEP,KEEP)
  LOAD DATA -- LOG NO    RESUME NO REPLACE COPYDDN(TCOPYD)
            -- LOG YES   RESUME YES  SHRLEVEL CHANGE
               LOG NO    RESUME YES
   EBCDIC  CCSID(00500,00000,00000)
       -- SORTKEYS
       -- ENFORCE NO
       SORTDEVT DISK
       SORTNUM  50
       WORKDDN(TSYUTD,TSOUTD)
     $@do pa=$paFr to $paTo $@=/part/
   INTO TABLE $creator.$tb$tx
   PART $pa INDDN TIN$tx
   ( "PART"
    POSITION(  00004:00007) INTEGER
                            NULLIF(00003)=X'FF'
   , "I1"
    POSITION(  00009:00012) INTEGER
                            NULLIF(00008)=X'FF'
   , "I2"
    POSITION(  00014:00017) INTEGER
                            NULLIF(00013)=X'FF'
   , "V1"
    POSITION(  00019:01020) VARCHAR
                            NULLIF(00018)=X'FF'
   , "V2"
    POSITION(  01022:02023) VARCHAR
                            NULLIF(01021)=X'FF'
   , "V3"
    POSITION(  02025:03026) VARCHAR
                            NULLIF(02024)=X'FF'
   )
         $/part/
     $/table/
$/jcl/
$/parmLine/