zOs/REXX/PROTOTYP

$#@
call sqlConnect dbaf
$;
$>.fEdit()
call sqlSel 'select name db from sysibm.sysDatabase' ,
                 "where name like 'DGDB%'"           ,
                    "or name like 'DGO%'"            ,
                    "or name like '%A1X%'"
$| $@[
$=dx = 0
$@forWith db $@/db/
 $=dx =- $dx+1
 if $dx // 100 = 1 then $@=[
//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
$]
$@=[
//************ $dx db $DB
//STEP$dx  EXEC PGM=PTLDRIVM,REGION=0M,
//             PARM='EP=PTLHDDLB'
//STEPLIB  DD DISP=SHR,DSN=DSN.CADB2.RZ1.P1.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB   DD DISP=SHR,DSN=DSN.CADB2.RZ1.P1.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM  DD DISP=SHR,DSN=DSN.CADB2.RZ1.P1.CDBAPARM
//ACMBLKI  DD DUMMY     DSN=A540769.ACM.INPUT.D120823.T141828,
//HDDLOUT  DD DISP=SHR,DSN=DSN.DBADM.PROTOTYP($DB)
//ERRORMSG DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SYSOUT   DD   SYSOUT=*
//PARMFILE DD   *
OBJTYPE      DB
NAME         $DB
SSID         DBAF
SQLID        S100447
LOCATION     LOCAL
$]
$/db/
$]
$;
call sqlDisconnect dbaf
$#out                                              20120823 16:54:44
$#out                                              20120823 16:49:54
$#out                                              20120823 16:42:41
$#out                                              20120823 16:41:38