zOs/TX/WK600LOD

$#@
$*(
     submit a job on different systems
         to load dummy tables
$*)
call compRun '@', file('DSN.TX.CASE(wk600ins)')
$=paFr=1
$=paTo=8
$=sys=0
$;
$>.fEdit()
$<=/parm/
$*( A   0     1
    B   2     3
    C   4     4
$*) D   10    10
$/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),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG,SYSTEM=S1$sys
//S1       EXEC PGM=DSNUTILB,PARM='$subsys,$job.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//DUMIN   DD DUMMY
//SYSTEMPL  DD DSN=$pds(${mpr}TMP),DISP=SHR
//SYSIN    DD *
     $@do ty = tFrom to tTo $@=/table/
          $= tx =- right(ty, 3, 0)
  LOAD DATA  LOG NO    RESUME NO REPLACE COPYDDN(TCOPYS)
   INDDN DUMIN
   EBCDIC  CCSID(00500,00000,00000)
       -- SORTKEYS
       -- ENFORCE NO
       SORTDEVT DISK
       SORTNUM  50
       WORKDDN(TSYUTS,TSOUTS)
   INTO TABLE $creator.$tb$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'
     )
     $/table/
$/jcl/
$/parmLine/