Can we bail out DB2 list report to the record regulating the SQL statement?
This is a application which can be used to bail out a list (select *) or any SQL matter to a vsam file. A representation is in ‘UIDP.PROD.JCL(JL0030DB)’
See below:
//JL0030DB JOB (001,0030,000),’BRENDA ULIN’,CLASS=O,MSGCLASS=Y
//UNCATLG EXEC PGM=IEFBR14
//UNCAT1 DD DSN=DISK.D0030.JL.ADMCFEES.DATA,
// UNIT=DISK,SPACE=(TRK,(1)),
// DISP=(MOD,DELETE,DELETE)
//UNCAT2 DD DSN=WEEKLY.&SYSUID..SQLCMDS.ADMCFEES,
// UNIT=DISK,SPACE=(TRK,(1)),
// DISP=(MOD,DELETE,DELETE)
//UNCAT3 DD DSN=WEEKLY.&SYSUID..SQLRECS.ADMCFEES,
// UNIT=DISK,SPACE=(TRK,(1)),
// DISP=(MOD,DELETE,DELETE)
//*
//UNLOAD EXEC SQLUNLOD,SYSID=DSN,SUFFIX=ADMCFEES
//SQLUNLOD.SYSIN DD *
SELECT A.ADMC_SOC_SEC#, CHAR(DECIMAL(ADMC_SEQ#,5,0)),
ADMC_AREA, ADMC_CATEGORY, CHAR(ADMC_FEE_AMOUNT),
ADMC_AMOUNT_TYPE, ADMC_ACTION, ADMC_INPUT_DATE,
ADMC_DESC, ADMC_COLLEGE, ADMC_SESSION,
ADMC_FEES_USERID
FROM ADPD004.ADMCMSTR A, ADPD004.ADMCFEES B
WHERE A.ADMC_CONTROL# = B.ADMC_CONTROL#;
/*
//* This is only to rename a dataset
//SORT1 EXEC SORT
//SORTIN DD DSN=WEEKLY.&SYSUID..SQLRECS.ADMCFEES,
// DISP=SHR
//SORTOUT DD DSN=DISK.D0030.JL.ADMCFEES.DATA,
// SPACE=(10790,(5000,10),RLSE),
// DISP=(NEW,CATLG,DELETE),UNIT=DISK,DCB=*.SORTIN
//SYSIN DD *
SORT FIELDS=COPY
END
/*