diff --git a/ASMB/UCTRAN41.asm b/ASMB/UCTRAN41.asm new file mode 100644 index 0000000..896db15 --- /dev/null +++ b/ASMB/UCTRAN41.asm @@ -0,0 +1,146 @@ +* DATA SET UCTRAN41 AT LEVEL 002 AS OF 08/25/98 +* DATA SET UCTRAN41 AT LEVEL 001 AS OF 12/23/97 00001 + TITLE 'U C T R A N SWITCH UPPER CASE TRANSLATION OPTION' 00002 +*********************************************************************** 00003 +* * 00004 +* U C T R A N SWITCH UPPER CASE TRANSLATION OPTION * 00005 +* * 00006 +* CODE FOR CICS 4.1.0 * 00007 +* * 00008 +* THIS PROGRAM IS USED TO SWITCH THE UCTRAN OPTION FOR THE * 00009 +* TERMINAL. AN APPLICATION PROGRAM CAN CALL THIS PROGRAM * 00010 +* AS FOLLOWS: * 00011 +* EXEC CICS LINK PROGRAM(UCTRAN) END-EXEC. * 00012 +* OR * 00013 +* EXEC CICS LINK PROGRAM(UCTRAN) COMMAREA(UCPARM) END-EXEC. * 00014 +* * 00015 +* THE FIRST FORM WILL FLIP THE CURRENT STATUS REGARDLESS OF * 00016 +* THE CURRENT VALUE. THE SECOND FORM WILL SET THE OPTION TO * 00017 +* THE REQUESTED VALUE IF NEEDED. UCPARM IS A 1 BYTE CHARACTER * 00018 +* DEFINED AS 'U' FOR UPPERCASE TRANSLATION, OR 'L' FOR NO * 00019 +* UPPERCASE TRANSLATION. * 00020 +* * 00021 +* IF THE TRANSACTION ID IS 'LC' SET THE LC OPTION. * 00022 +* IF THE TRANSACTION ID IS 'UC' SET THE UC OPTION. * 00023 +* * 00024 +* IF THE PROGRAM IS INVOKED IN AN AOR THE PROGRAM WILL START * 00025 +* ITSELF IN THE TOR WITH A 5 BYTE COMMAREA. THIS AREA WILL * 00026 +* SPECIFY THE FUNCTION, 'U OR L' FOLLOWED BY THE TERMID TO BE * 00027 +* SWITCHED. * 00028 +* * 00029 +* REGISTER USAGE: * 00030 +* * 00031 +* R0 RESERVED * 00032 +* R1 PARM POINTER * 00033 +* R2 * 00034 +* R3 1ST CODE BASE REGISTER * 00035 +* R4 2ND CODE BASE REGISTER * 00036 +* R5 1ST DATA BASE REGISTER * 00037 +* R6 WORK * 00038 +* R7 EIB POINTER * 00039 +* R8 WORK * 00040 +* R9 BCT REGISTER / TEMP TIOA POINTER * 00041 +* R10 TCTTE POINTER * 00042 +* R11 EIB POINTER * 00043 +* R12 * 00044 +* R13 RESERVED * 00045 +* R14 RESERVED * 00046 +* R15 RESERVED * 00047 +* * 00048 +* * 00049 +* * 00050 +* * 00051 +*********************************************************************** 00052 + EJECT 00053 +* XEQU 00054**2 + DFHREGS ADDED BY WB 00055**2 + EJECT 00056 +DFHEISTG DSECT 00057 + SPACE 3 00058 +UCTRANST DS F 00059 +LENGTH DS H 00060 +CAPARM DS 0CL5 * COMMAREA PARM 00061 +CATYPE DS CL1 * TYPE OF COMMAREA 00062 +UCTRANU EQU C'U' * UPPERCASE TRANSLATION 00063 +UCTRANL EQU C'L' * NO UPPERCASE TRANSLATION 00064 +UCTRANF EQU C'F' * FLIP UPPERCASE TRANSLATION 00065 +CATERM DS CL4 * TERMID FOR UCTRAN 00066 +SYSID DS CL4 * SYSID FOR TOR 00067 + SPACE 3 00068 +******************************************************************* 00069 + EJECT 00070 +UCTRAN DFHEIENT CODEREG=(3,4),DATAREG=(5),EIBREG=7 00071 + CLI EIBTRMID,X'40' Q-TERMINAL TASK 00072 + BH GOODTERM BIF YES 00073 + MVC LENGTH,=H'5' 00074 + EXEC CICS RETRIEVE INTO(CAPARM) LENGTH(LENGTH) 00075 + CLC LENGTH,=H'5' 00076 + BNE ABEND BIF NO 00077 + B CKPARM 00078 +ABEND DS 0H 00079 + EXEC CICS ABEND ABCODE('UCTR') 00080 +GOODTERM DS 0H 00081 + MVC CATERM,EIBTRMID 00082 + MVI CATYPE,UCTRANU SET UP FOR UCTRAN ON 00083 + CLC EIBTRNID,=CL4'UC' Q-UPPERCASE TRANSLATE REQUESTED 00084 + BE UCYES BIF YES 00085 + CLC EIBTRNID,=X'A4834040' 00086 + BE UCYES 00087 + MVI CATYPE,UCTRANL SET UP FOR UCTRAN OFF 00088 + CLC EIBTRNID,=CL4'LC' Q-LOWERCASE REQUESTED 00089 + BE UCNO BIF YES 00090 + CLC EIBTRNID,=X'93834040' 00091 + BE UCNO 00092 + CLC EIBCALEN,=H'0' Q-COMMAREA 00093 + BE UCFLIP BIF NO, 00094 + L R1,DFHEICAP GET ADDRESS OF COMMAREA 00095 + MVC CATYPE,0(R1) COPY IT 00096 +CKPARM DS 0H 00097 + CLI CATYPE,UCTRANU Q-UPPERCASE TRANSLATE REQUESTED 00098 + BE UCYES BIF YES 00099 + CLI CATYPE,UCTRANL Q-LOWERCASE REQUESTED 00100 + BE UCNO BIF YES 00101 +UCFLIP DS 0H 00102 + EXEC CICS INQUIRE TERMINAL(CATERM) UCTRANST(UCTRANST) 00103 + CLC UCTRANST,DFHVALUE(UCTRAN) Q-UCTRAN ACTIVE 00104 + BE UCNO BIF YES, TURN IF OFF 00105 + SPACE 1 00106 +UCYES DS 0H 00107 + MVC UCTRANST,DFHVALUE(UCTRAN) 00108 + B UCSET 00109 +UCNO DS 0H 00110 + MVC UCTRANST,DFHVALUE(NOUCTRAN) 00111 + SPACE 1 00112 +UCSET DS 0H ** RETURN ** 00113 + EXEC CICS SET TERMINAL(CATERM) UCTRANST(UCTRANST) 00114 + EXEC CICS INQUIRE TERMINAL(CATERM) REMOTESYSTEM(SYSID) 00115 + CLI SYSID,X'40' 00116 + BNH CKTRAN 00117 + MVC LENGTH,=Y(L'CAPARM) LENGTH OF COMMAREA 00118 + EXEC CICS START TRANSID('UCTR') SYSID(SYSID) FROM(CAPARM) *00119 + LENGTH(LENGTH) 00120 +* IT MAY BE NECESSARY AT A FUTURE TIME TO BUILD A WAIT/POST MECHANISM 00121 +* INTO THE PROCESS HERE TO ENSURE THAT THE BIT IS FLIPPED BEFORE THE 00122 +* USER CAN ENTER THEIR NEXT TRAN. 00123 + B RETURN 00124 +CKTRAN DS 0H ** RETURN ** 00125 + CLC EIBTRNID,=CL4'UC' Q-WAS THIS FOR UC TRAN 00126 + BE CLEAR BIF YES 00127 + CLC EIBTRNID,=X'A4834040' Q-WAS THIS FOR UC TRAN 00128 + BE CLEAR BIF YES 00129 + CLC EIBTRNID,=CL4'LC' Q-WAS THIS FOR LC TRAN 00130 + BE CLEAR BIF YES 00131 + CLC EIBTRNID,=X'93834040' Q-WAS THIS FOR LC TRAN 00132 + BNE RETURN BIF NO 00133 +CLEAR DS 0H 00134 + EXEC CICS SEND CONTROL ERASE FREEKB 00135 +RETURN DS 0H 00136 + EXEC CICS RETURN 00137 + SPACE 3 00138 + PRINT OFF 00139 + LTORG 00140 + PRINT ON 00141 + SPACE 3 00142 + CSECT 001424 + DC CL21'002UCTRAN41 08/25/98' 001425 + END 00143 diff --git a/JCL/DTSBK325.jcl b/JCL/DTSBK325.jcl new file mode 100644 index 0000000..5c73199 --- /dev/null +++ b/JCL/DTSBK325.jcl @@ -0,0 +1,30 @@ +//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X, 00000010 +// USER=#DOADTS, +// NOTIFY=ECNTSUP +//* 00001700 +// SET LVLNODE='PROD' +// SET MSTNODE='PROD' +// SET LHOLD='YES' +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0050 EXEC DTSUTVSM, +// BKUPGEN='(+1)' +//* 00001700 +//STEP0100 EXEC DTSUX325, +// RUNTYPE='OR' +//* +//STEP0100.EXTPARM DD * +325 +/* +//**** +//******************************************************************* +//*** SEND DATA TO SERVER FOR UPLOAD +//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE +//SYSPRINT DD SYSOUT=* +//OUTPUT DD SYSOUT=* +//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//SYSGET DD *,DCB=BLKSIZE=80 +//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT325),DISP=SHR +//**** diff --git a/JCL/DTSBX479.jcl b/JCL/DTSBX479.jcl index 0fe6125..30c839e 100644 --- a/JCL/DTSBX479.jcl +++ b/JCL/DTSBX479.jcl @@ -71,6 +71,6 @@ //OUTOUT DD SYSOUT=* //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSGET DD *,DCB=BLKSIZE=80 -//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR +//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),DISP=SHR // //******************************************************************* diff --git a/JCL/DTSBX552.jcl b/JCL/DTSBX552.jcl index 61a53f6..591cc04 100644 --- a/JCL/DTSBX552.jcl +++ b/JCL/DTSBX552.jcl @@ -32,7 +32,8 @@ //* SPACE=(30720,(2000,4000),RLSE), 00211048 // SPACE=(CYL,(20,50),RLSE), 00211149 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007 +//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007 //* 00214007 //STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216009 // COND=(0,LT) 00217009 @@ -49,7 +50,7 @@ //* SPACE=(30720,(2000,4000),RLSE), 00330048 // SPACE=(CYL,(50,50),RLSE), 00331048 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340021 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00350009 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009 //* 00360009 //* 00370041 //STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380041 @@ -66,7 +67,7 @@ // UNIT=SYSDA, 00490041 // SPACE=(30720,(2000,4000),RLSE), 00500041 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00520041 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00520041 //* 00530041 //************************************************************** 01210000 //* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000 diff --git a/JCL/DTSBX553.jcl b/JCL/DTSBX553.jcl index 4ab400b..28325f9 100644 --- a/JCL/DTSBX553.jcl +++ b/JCL/DTSBX553.jcl @@ -31,7 +31,7 @@ // UNIT=SYSDA, 00210000 // SPACE=(30720,(2000,2000),RLSE), 00211000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212000 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00213003 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00213003 //* 00214000 //* 00215001 //STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216002 @@ -48,7 +48,7 @@ // UNIT=SYSDA, 00320000 // SPACE=(30720,(2000,2000),RLSE), 00330000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00350003 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00350003 //* 00360000 //* 00370005 //STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380005 @@ -65,7 +65,7 @@ // UNIT=SYSDA, 00490005 // SPACE=(30720,(2000,2000),RLSE), 00500005 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510005 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00520005 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00520005 //* 00530005 //************************************************************** 01210000 //* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000 diff --git a/JCL/DTSBX629.jcl b/JCL/DTSBX629.jcl index 54e1027..95221c8 100644 --- a/JCL/DTSBX629.jcl +++ b/JCL/DTSBX629.jcl @@ -57,7 +57,8 @@ // UNIT=SYSDA, 00320000 // SPACE=(30720,(2000,2000),RLSE), 00330000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR 00350001 +//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001 //* 00360000 //************************************************************** 01210000 //* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012 diff --git a/JCL/DTSFT902.jcl b/JCL/DTSFT902.jcl new file mode 100644 index 0000000..bd636d9 --- /dev/null +++ b/JCL/DTSFT902.jcl @@ -0,0 +1,32 @@ +//DTSFT902 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K, +//* USER=#DOADTS, +// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 +//*SET QTR='084' +//******************************************************************** +//* * +//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 FILE * +//* * +//* * +//* KEYID IS THE KEY IN THE PUBLIC KEY RING YOU ARE ENCRYPTING TO * +//* PASSPARM CWFEB1ES * +//******************************************************************** +//******************************************************************** +//PGPEMBAG EXEC PROC=PGP,COND=(0,LT) +//* +//TEXTIN DD DSN=DOESTAX.PROD.UC30DATA,DISP=SHR +//ENCOUT DD DSN=DOESTAX.PROD.UC30.CRYPTD.DDOC, +// DISP=(,PASS,DELETE), +//* DISP=OLD, +// UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE), +// DCB=(RECFM=FB,LRECL=385,BLKSIZE=5775) +//IN DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),DISP=SHR +//* +//******************************************************************** +//FTPMBAG EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT) +//* +//SYSPRINT DD SYSOUT=(*) +//SYSMDUMP DD SYSOUT=(*) +//OUTPUT DD SYSOUT=(*) +//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT902),DISP=SHR +//* diff --git a/JCL/DTSFT910.jcl b/JCL/DTSFT910.jcl new file mode 100644 index 0000000..6df5a02 --- /dev/null +++ b/JCL/DTSFT910.jcl @@ -0,0 +1,32 @@ +//DTSFT910 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K, +//* USER=#DOADTS, +// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 +//* +//******************************************************************** +//* * +//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 HOUSEHOLD * +//* FILE * +//* * +//* KEYID IS THE KEY IN THE PUBLIC KEY RING YOU ARE ENCRYPTING TO * +//* PASSPARM CWFEB1ES * +//******************************************************************** +//******************************************************************** +//PGPEMBAG EXEC PROC=PGP,COND=(0,LT) +//* +//TEXTIN DD DSN=DOESTAX.PROD.UC30HDAT,DISP=SHR +//ENCOUT DD DSN=DOESTAX.PROD.UC30H.CRYPTD.DDOC, +// DISP=(,PASS,DELETE), +//* DISP=OLD, +// UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE), +// DCB=(RECFM=FB,LRECL=490,BLKSIZE=4900) +//IN DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),DISP=SHR +//* +//******************************************************************** +//FTPMBAG EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT) +//* +//SYSPRINT DD SYSOUT=(*) +//SYSMDUMP DD SYSOUT=(*) +//OUTPUT DD SYSOUT=(*) +//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFT910),DISP=SHR +//* diff --git a/JCL/DTSGSID0.jcl b/JCL/DTSGSID0.jcl index 9de6318..41ce0f0 100644 --- a/JCL/DTSGSID0.jcl +++ b/JCL/DTSGSID0.jcl @@ -62,7 +62,7 @@ //OUTOUT DD SYSOUT=* //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSGET DD *,DCB=BLKSIZE=80 -//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR +//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),DISP=SHR //*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR //******************************************************************* //* diff --git a/JCL/DTSPODC2.jcl b/JCL/DTSPODC2.jcl new file mode 100644 index 0000000..e29e916 --- /dev/null +++ b/JCL/DTSPODC2.jcl @@ -0,0 +1,15 @@ +//DTSPODC2 JOB (PCFHF,CA7),'FTP NOTIFY',CLASS=G,MSGCLASS=2, +// MSGLEVEL=(1,1),USER=PCUCC7 +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS +//*LOGONID PCUCC7 +//********************************************************************** +//* GOV1 FTP GET FILE PROCESS * +//* RUNS ON OS12 * +//* DEMANDS JOB DTSPG1G1 ON OS12 CA/7 TO PUT FILE TO GOV1 * +//********************************************************************** +/*JOBPARM SYSAFF=OS12 +//CA7BAT EXEC PROC=CA7BTI +//BTERM.SYSIN DD DSN=SYS2.CA7.ODC2.TRAILERS(DTSPG1G1),DISP=SHR +//BTERM.SYSPRINT DD SYSOUT=R,DCB=BLKSIZE=133 +//* diff --git a/JCL/DTSPODC5.jcl b/JCL/DTSPODC5.jcl new file mode 100644 index 0000000..d6ef1da --- /dev/null +++ b/JCL/DTSPODC5.jcl @@ -0,0 +1,15 @@ +//DTSPODC5 JOB (TOPFF0,CA7),'FTP NOTIFY',CLASS=G,MSGCLASS=2, +// MSGLEVEL=(1,1),USER=PCUCC7 +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS +//*LOGONID PCUCC7 +//********************************************************************** +//* GOV1 FTP PUT FILE PROCESS * +//* RUNS ON OS12 * +//* DEMANDS JOB DTSPG1P1 ON OS12 CA/7 TO PUT FILE TO GOV1 * +//********************************************************************** +/*JOBPARM SYSAFF=OS12 +//CA7BAT EXEC PROC=CA7BTI +//BTERM.SYSIN DD DSN=SYS2.CA7.ODC2.TRAILERS(DTSPG1P1),DISP=SHR +//BTERM.SYSPRINT DD SYSOUT=R,DCB=BLKSIZE=133 +//* diff --git a/JCL/DTSPODCA.jcl b/JCL/DTSPODCA.jcl new file mode 100644 index 0000000..4d1c025 --- /dev/null +++ b/JCL/DTSPODCA.jcl @@ -0,0 +1,3 @@ +/LOGON CA7BTCH,UIB1USR +DEMAND,JOB=DTSPODC4 +/LOGOFF diff --git a/JCL/DTSUC30X.jcl b/JCL/DTSUC30X.jcl new file mode 100644 index 0000000..ab716ba --- /dev/null +++ b/JCL/DTSUC30X.jcl @@ -0,0 +1,22 @@ +//DTSUC30X JOB (UI,4300,3400,T),PROD.SEND.UC30, +// CLASS=P,MSGCLASS=X, +// USER=#DOADTS, +// NOTIFY=ECNTJP2, +//**** TYPRUN=SCAN, +// REGION=0M /* RUNS AFTER DTSRQ902/ECNTV902 +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS +//** +//** TRANSMIT THE QTRLY UC30 DATA FILE TO DHS. THIS DATA MUST +//** BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO DOES, AND +//** THEN, **>TO A VENDOR FOR PRINTING & MAILING<** OF THE UC30'S. +//** +//** 1. CHECK NOTIFICATION OF ECNTJP2 (FOR JOB COMPLETION) AND +//** 2. NOTIFICATION OF ECNTSUP (FOR X'FER OF DATA) AND +//** JCL OUTPUT UNDER ODC1UC30 (FOR CART. NUMBER) +//** +//STEP0100 EXEC PROC=NJESEND, /* UC30 DATA +// INFILE='DOESTAX.PROD.UC30DATA', +// JCLSTART=NJEUC30S, +// JCLEND=NJEUC30E +//** diff --git a/JCL/DTSUC3HX.jcl b/JCL/DTSUC3HX.jcl new file mode 100644 index 0000000..edbe84e --- /dev/null +++ b/JCL/DTSUC3HX.jcl @@ -0,0 +1,18 @@ +//DTSUC3HX JOB (UI,4300,3400,T),PROD.SEND.UC30H, +// CLASS=P,MSGCLASS=X, +// NOTIFY=ECNTJP2, +// USER=#DOADTS, +//**** TYPRUN=SCAN, +// REGION=0M +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS +//** +//** TRANSMIT THE YRLY UC30H DATA FILE TO DHS. THIS DATA MUST +//** BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO A **>VENDOR +//** FOR PRINTING & MAILING<** OF THE UC30H FORMS. +//** +//STEP0100 EXEC PROC=NJESEND, /* UC30 DATA +// INFILE='DOESTAX.PROD.UC30HDAT', +// JCLSTART=NJEUC3HS, +// JCLEND=NJEUC3HE +//** diff --git a/JCL/DTSXMTBX.jcl b/JCL/DTSXMTBX.jcl new file mode 100644 index 0000000..9f460d2 --- /dev/null +++ b/JCL/DTSXMTBX.jcl @@ -0,0 +1,24 @@ +//DTSXMTBX JOB (UI,4300,3400,T),PROD.OTR.EMPLR.REXMT, 00000010 +// CLASS=P,MSGCLASS=X, 00000010 +// USER=#DOADTS, +//**** TYPRUN=SCAN, +// NOTIFY=ECNTJP2,REGION=0M +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//** +// SET LVLNODE='PROD' +//** +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//** 00001700 +//* RETRANSMIT THE FILE FOR OFF. OF TAX & REV. 00001700 +//* (DATA ARE UPDATES TO UI TAX EMPLOYER NAMES AND ADDRESSES) 00001700 +//* {FILE AT SHARE IS FRDWH.PRD.RS21.PRNDOTRE.DAT} 00001700 +//* {CONTACT PERSON AT OTR IS MS. WIGGLESWORTH} 00001700 +//* (NO BKP NEEDED FOR THIS RUN) 00001700 +//** TRANSMIT FILES TO DC SHARE FOR FORWARDING +//** TO THE OFFICE OF TAX AND REVENUE +//STEP0400 EXEC PROC=NJESEND, +// INFILE='DOESTAX.PROD.OTR.TRNS.FILE(+0)', +// JCLSTART=NJEOTRES, +// JCLEND=NJEOTREE +//* 00047000 diff --git a/JCL/ECNTVCGQ.jcl b/JCL/ECNTVCGQ.jcl new file mode 100644 index 0000000..a0904b1 --- /dev/null +++ b/JCL/ECNTVCGQ.jcl @@ -0,0 +1,73 @@ +//ECNTVCGQ JOB (UI,4300,3400,T),CHGQTR.VIEWDIR, 00010016 +// CLASS=P,MSGCLASS=X, 00011016 +//*** TYPRUN=SCAN, 00020001 +//*** USER=#DOADTS, 00021024 +//**** NOTIFY=ECNTJP2,REGION=0M 00030031 +// NOTIFY=ECNTSUP,REGION=0M 00031031 +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//**** 00040000 +// SET PRGNODE='PROD' /* CREATE THE QUARTERLY REPORTS 00050015 +// SET LVLNODE='PROD' /* AND FILES FOR THE QTR GIVEN 00060015 +// SET CHGNODE='PROD' 00070015 +// SET CHGMNBR='CHGM002' 00071004 +// SET CHGMSSN='CHGM030' 00072020 +// SET QTRLY='QTR041' /* QTRYYQ 00080031 +// SET LDEST=U@PRT65 00090027 +// SET LHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00100018 +// SET LVDHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00101018 +//***** 00110000 +/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY 00120000 +//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008 +//**** 00150000 +//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000 +//* (W) FOR RATED EMPLOYERS, BILLS (I) FOR SELF-INSURED (S-I) 00170000 +//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000 +//* ALONG WITH LABELS FOR THE S-I, CWC & FEDS. 00200000 +//**** 00210000 +//* PARMS FOR CHGBD205: 00220000 +//* COLS. RUN TYPE: 00240000 +//* 01-03 QTR = QUARTERLY 00250000 +//* ANN = ANNUAL 00260000 +//* MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED 00270000 +//* EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER 00280000 +//* RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM 00300000 +//* TEU = PRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM 00320014 +//* 00330000 +//* 05-10 MMDDYY = START DATE OF SELECTION 00340000 +//* 12-17 MMDDYY = END DATE OF SELECTION 00350000 +//* 00351000 +//* 19-23 YYYYY = (FOR RPT ONLY) REPORT TYPES DESIRED: 00360000 +//* - Y/N RATED REPORT (W)(O) 00390000 +//* - Y/N SELF-INSURED REPORT (I)(O) 00400000 +//* - Y/N CWC REPORT (O) 00410000 +//* - Y/N FEDERAL REPORT (O) 00420000 +//* - Y/N TEUC REPORT (O) 00430012 +//* 00431000 +//* 25-30 NNNNNN = 6 DIGIT EMPLOYER ACCOUNT NUMBER 00440000 +//* (USED WITH RUN TYPE = EMP/MNE) 00450000 +//* 00460000 +//****SET EXTRACT PARM IN DOESTAX.&LVLNODE.APPL.PARMLIB(CHGPARM) 00470000 +//* (OR NOT... FOR NOW) 00471000 +//**** 00480000 +//STEP0200 EXEC DTSUXCGP 00490000 +//STEP0100.SYSIN DD * 00491000 +RPT,010104,033104,YYYYNY,000000 00492031 +/* 00500000 +//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500117 +//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500218 +//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500317 +//**** 00501000 +//* SYSIN CARD: RPT,010102,033102,YYYYNY,000000 00502027 +//**** 00504000 +//STEP0300 EXEC DTSCVRPQ 00510019 +//STEP0100.RPC100R1 DD DUMMY /* RATED (W) <-- 00511017 +//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. <-- 00511117 +//STEP0100.RPC110R1 DD DUMMY /* S-I (I) <-- 00511217 +//STEP0100.TPSCHRG DD DUMMY /* TPS FILE <-- 00512017 +//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE <-- 00513017 +//STEP0200.RPT907R1 DD DUMMY /* UNUS.COND. <-- 00513118 +//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. <-- 00513218 +//STEP0200.RPT980R1 DD DUMMY /* CNTRL.RPT. <-- 00513318 +//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS <-- 00514017 +//* 00515016 diff --git a/JCL/G1EPPUT3.jcl b/JCL/G1EPPUT3.jcl new file mode 100644 index 0000000..850cefb --- /dev/null +++ b/JCL/G1EPPUT3.jcl @@ -0,0 +1,9 @@ +10.27.12.1 +FTG1DOS1 +DESUSR +EBCDIC +MODE BLOCK +SITE TR PRI=500 SEC=300 UNIT=WORK +PUT 'DOESTAX.TEST.GOV1.EFTEXT' 'FTG1DOS1.DOESTAX.HDVL.EFTEXT' +DIR +QUIT diff --git a/JCL/GOVPODCP.jcl b/JCL/GOVPODCP.jcl new file mode 100644 index 0000000..2cab371 --- /dev/null +++ b/JCL/GOVPODCP.jcl @@ -0,0 +1,3 @@ +/LOGON CA7BTCH,UIB1USR +DEMAND,JOB=DTSPODC6 +/LOGOFF diff --git a/JCL/OD1TOOD2.jcl b/JCL/OD1TOOD2.jcl new file mode 100644 index 0000000..850cefb --- /dev/null +++ b/JCL/OD1TOOD2.jcl @@ -0,0 +1,9 @@ +10.27.12.1 +FTG1DOS1 +DESUSR +EBCDIC +MODE BLOCK +SITE TR PRI=500 SEC=300 UNIT=WORK +PUT 'DOESTAX.TEST.GOV1.EFTEXT' 'FTG1DOS1.DOESTAX.HDVL.EFTEXT' +DIR +QUIT diff --git a/JCL/RUNBZ057.jcl b/JCL/RUNBZ057.jcl new file mode 100644 index 0000000..5b4f1f9 --- /dev/null +++ b/JCL/RUNBZ057.jcl @@ -0,0 +1,40 @@ +//RUNBZ057 JOB (UI,4300,3400,T),RUNBZ057,CLASS=S,MSGCLASS=X, 00000010 +// USER=#DOADTS, +// NOTIFY=ECNTSUP +//* +//* +// SET MSTNODE='PROD' +// SET LVLNODE='DEVL' +//* +//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0100 EXEC PGM=DTSBZ057, CORRECT 09/4 REPORTS ENTERED +// COND=(0,LT), LATE BY MISTAKE +// REGION=4096K +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//* +//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1), +// DISP=(,CATLG,DELETE), +// SPACE=(8192,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) +//* +//DTSFZ057 DD DSN=DOESTAX.PROD.FZ057, +//** DISP=(,CATLG,DELETE), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(2300,(100,100),RLSE), +// DCB=(RECFM=FB,LRECL=23,BLKSIZE=2300) +//* +//********************************************************************* diff --git a/JCL/RUNBZ084.jcl b/JCL/RUNBZ084.jcl new file mode 100644 index 0000000..db23f1c --- /dev/null +++ b/JCL/RUNBZ084.jcl @@ -0,0 +1,30 @@ +//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ084,CLASS=P,MSGCLASS=X, 00000010 +// NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//* 00001700 +// SET LVLNODE='PROD' +// SET MSTNODE='PROD' +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//* 00001700 +//STEP0050 EXEC DTSUTVSM, +// BKUPGEN='(+1)' +//**** /* MERGE +//STEP0100 EXEC PGM=DTSBZ084, /* CORRECT DISCREPANCY BETWEEN +// COND=(0,LT), /* MQTR AND MJRN CAUSED BY +// REGION=4096K /* ERROR IN DTSBD350 +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//CAIMRPTS DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), +// DISP=(,CATLG,DELETE), +// SPACE=(8192,(1000,1000),RLSE), +// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) +/* +//**** diff --git a/JCL/RUNBZ258.jcl b/JCL/RUNBZ258.jcl new file mode 100644 index 0000000..c03b3a2 --- /dev/null +++ b/JCL/RUNBZ258.jcl @@ -0,0 +1,41 @@ +//ECNTSUPP JOB (UI,4300,3400,T),RUNBZ258,CLASS=S,MSGCLASS=X, 00000010 +// NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//* 00001700 +// SET LVLNODE='PROD' 00001700 +// SET MSTNODE='PROD' 00001700 +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0100 EXEC PGM=DTSBZ258, SCAN ATC FOR ANNUAL REPORTS +// COND=(0,LT), +// REGION=4096K +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//** +//EXPBZ258 DD DSN=DOESTAX.DEVL.DTSBZ258, +//** DISP=(NEW,CATLG,DELETE), +// DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(29000,(1000,1000),RLSE), +// DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000) +//********************************************************************* +//STEP0210 EXEC PGM=FTP, +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//OUTOUT DD SYSOUT=* +//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//SYSGET DD *,DCB=BLKSIZE=80 +//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT258),DISP=SHR +//********************************************************************* diff --git a/JCL/RUNBZ268.jcl b/JCL/RUNBZ268.jcl new file mode 100644 index 0000000..4a75245 --- /dev/null +++ b/JCL/RUNBZ268.jcl @@ -0,0 +1,22 @@ +//RUNBZ268 JOB (UI,4300,3400,T),RUNBZ268,CLASS=S,MSGCLASS=X, 00000010 +// NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//* 00001700 +// SET MSTNODE='PROD' REGION VSAM MASTER FILES +// SET LVLNODE='PROD' REGION NON MASTER FILES +// SET PGMNODE='DEVL' REGION BATCH LOADLIB/PROCLIB +//* +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001600 +//* 00001700 +//STEP0100 EXEC PGM=DTSBZ268, INIT MADJ, MQTR +// COND=(0,LT), +// REGION=4096K +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//CAIMRPTS DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//* +//********************************************************************* diff --git a/JCL/RUNBZ279.jcl b/JCL/RUNBZ279.jcl new file mode 100644 index 0000000..459bb68 --- /dev/null +++ b/JCL/RUNBZ279.jcl @@ -0,0 +1,25 @@ +//RUNBZ279 JOB (UI,4300,3400,T),RUNBZ279,CLASS=A,MSGCLASS=X, 00000010 +//** TYPRUN=SCAN, +// USER=#DOADTS, +// NOTIFY=ECNTZL1 +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//** +// SET MSTNODE='PROD' REGION VSAM MASTER FILES +// SET LVLNODE='PROD' REGION NON VSAM MASTER FILES +// SET PGMNODE='DEVL' REGION BATCH LOADLIB/PROCLIB +//* +//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB +//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB +//** +//STEP0100 EXEC PGM=DTSBZ279, INIT AADJ +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//CAIMRPTS DD SYSOUT=* +//* +//DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//* +// diff --git a/JCL/RUNBZ312.jcl b/JCL/RUNBZ312.jcl new file mode 100644 index 0000000..64212a9 --- /dev/null +++ b/JCL/RUNBZ312.jcl @@ -0,0 +1,30 @@ +//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ312,CLASS=P,MSGCLASS=X, 00000010 +// NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//* 00001700 +// SET LVLNODE='PROD' +// SET MSTNODE='PROD' +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0100 EXEC DTSUTVSM, +// BKUPGEN='(+1)' +//**** /* MERGE +//* 00001700 +//STEP0100 EXEC PGM=DTSBZ312, /* WITHDRAW MISSING REPORT PENALTY +// COND=(0,LT), /* WHERE QTR IS NOT LIABLE +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//CAIMRPTS DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), +// DISP=(,CATLG,DELETE), +// SPACE=(8192,(1000,1000),RLSE), +// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) +/* +//**** diff --git a/JCL/RUNBZ313.jcl b/JCL/RUNBZ313.jcl new file mode 100644 index 0000000..6f45648 --- /dev/null +++ b/JCL/RUNBZ313.jcl @@ -0,0 +1,30 @@ +//ECNTGD11 JOB (UI,4300,3400,T),RUNWNAME,CLASS=A,MSGCLASS=X, 00000010 +//** TYPRUN=SCAN, +// USER=#DOADTS, +// NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//** +// SET LVLNODE='PROD' +// SET MSTNODE='PROD' +//** +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB +//LOADLIBS INCLUDE MEMBER=DTSIJLIB +//** +//STEP0100 EXEC PGM=DTSBZ313, +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//* +//WORKRIN DD DSN=DOESTAX.DEVL.NEWHIRE.WORKER, +// DISP=(OLD,KEEP,KEEP), +//** DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(30000,(400,200),RLSE), +// DCB=(RECFM=FB,LRECL=150,BLKSIZE=30000) +//* +//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//*** +//***** diff --git a/JCL/RUNBZ330.jcl b/JCL/RUNBZ330.jcl new file mode 100644 index 0000000..4401808 --- /dev/null +++ b/JCL/RUNBZ330.jcl @@ -0,0 +1,21 @@ +//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ330,CLASS=S,MSGCLASS=X, 00000010 +// NOTIFY=ECNTSUP +//* 00001700 +// SET LVLNODE='PROD' 00001700 +// SET MSTNODE='PROD' 00001700 +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0100 EXEC PGM=DTSBZ330, REPROCESS REPORTS +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//********************************************************************* diff --git a/JCL/RUNBZ365.jcl b/JCL/RUNBZ365.jcl new file mode 100644 index 0000000..270ae4e --- /dev/null +++ b/JCL/RUNBZ365.jcl @@ -0,0 +1,21 @@ +//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ365,CLASS=S,MSGCLASS=X, 00000010 +// NOTIFY=ECNTSUP +//* 00001700 +// SET LVLNODE='PROD' 00001700 +// SET MSTNODE='PROD' 00001700 +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0100 EXEC PGM=DTSBZ365, REVERSE 2008/1 DELINQ +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//********************************************************************* diff --git a/JCL/RUNBZ385.jcl b/JCL/RUNBZ385.jcl new file mode 100644 index 0000000..eb34f82 --- /dev/null +++ b/JCL/RUNBZ385.jcl @@ -0,0 +1,21 @@ +//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ385,CLASS=S,MSGCLASS=X, 00000010 +// NOTIFY=ECNTSUP +//* 00001700 +// SET LVLNODE='PROD' 00001700 +// SET MSTNODE='PROD' 00001700 +//* 00001700 +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600 +//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 +//* 00001700 +//STEP0100 EXEC PGM=DTSBZ385, CORRECT 155378 +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//********************************************************************* diff --git a/JCL/RUNBZ800.jcl b/JCL/RUNBZ800.jcl new file mode 100644 index 0000000..be2dd46 --- /dev/null +++ b/JCL/RUNBZ800.jcl @@ -0,0 +1,120 @@ +//ECNT800R JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199 +// NOTIFY=ECNTSUP 00000299 +/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE +//** 00000499 +// SET LVLNODE='PROD' 00000599 +// SET MSTNODE='PROD' 00000699 +// SET PGMNODE='PROD' 00000799 +//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001399 +//* 00001400 +//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001599 +//* 00001600 +//**** GENERATE A DUMMY RECORD FOR THE LABELS FILE 00001799 +//DOESIEDG EXEC PGM=IEBDG 00001899 +//SYSPRINT DD SYSOUT=* 00001999 +//LBLOUT DD DSN=&&TEMP,DISP=(,PASS,DELETE), 00002099 +// UNIT=SYSDA, 00002199 +// SPACE=(TRK,1), 00002299 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002399 +//SYSIN DD * 00002499 + DSD OUTPUT=(LBLOUT) 00002599 + FD NAME=F1,LENGTH=350,STARTLOC=1,FILL='0' 00002699 + CREATE QUANTITY=1,NAME=(F1) 00002799 + END 00002899 +/* 00002999 +//DOESICAN EXEC PGM=IDCAMS 00003099 +//SYSPRINT DD SYSOUT=* 00003199 +//FILEIN DD DSN=&&TEMP, 00003299 +// DISP=(OLD,PASS), 00003399 +// UNIT=SYSDA 00003499 +//*OESVRO1 DD DSN=DOESTAX.DEVL.TESTR901.LABELS,DISP=SHR 00003599 +//DOESVRO1 DD DSN=&&LABELS, 00003699 +// DISP=(NEW,PASS,DELETE), 00003799 +// UNIT=SYSDA, 00003899 +// SPACE=(8192,(1000,1000),RLSE), 00003999 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004099 +//SYSIN DD * 00004199 + REPRO INFILE(FILEIN) OUTFILE(DOESVRO1) 00004299 +/* 00004399 +//* 00004499 +//********************************************************************* 00004549 +//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600 +// COND=(0,LT) 00004700 +//SYSOUT DD SYSOUT=* 00004800 +//SORTIN DD DSN=DOESTAX.PROD.PER.RPT.G1245V00,DISP=SHR 00005099 +//* DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G1569V00,DISP=SHR 00005099 +//* 00006399 +//SORTOUT DD DSN=&&SRTRPT, 00006899 +// DISP=(,PASS,DELETE), 00006999 +// UNIT=SYSDA, 00007099 +// SPACE=(8192,(1000,1000),RLSE), 00007199 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299 +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399 +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499 +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099 +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00009099 +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00010099 +//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00011099 +//********************************************************************* 00018000 +//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100 +//** TIME=(0,20), 00018299 +// COND=(0,LT) 00018300 +//SYSOUT DD SYSOUT=* 00018400 +//SYSABOUT DD SYSOUT=* 00018500 +//SYSUDUMP DD SYSOUT=* 00018600 +//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799 +//PARMIN DD * 00018899 +DTSBD800,INC,117 00019199 +/* 00019599 +//** 00019699 +//ATLSTIN DD * 00020000 +DTSBD800, 00030000 +/* 00031000 +//** 117 W CLASS 00040099 +//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099 +//**** NEED FOR 604 ONLY***** 00051099 +//** 00060000 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099 +//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, 00071099 +// AMP=('BUFNI=5,BUFND=10') 00080000 +//* 00090099 +//DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099 +//* 00100199 +//RPC100R1 DD SYSOUT=* 00100299 +//RPC100R2 DD SYSOUT=* 00100399 +//RPC100R3 DD SYSOUT=* 00100499 +//RPC110R1 DD SYSOUT=* 00100699 +//RPC110R2 DD SYSOUT=* 00100799 +//RPT117R1 DD SYSOUT=* 00100899 +//RPT117R2 DD SYSOUT=* 00100899 +//RPC120R1 DD SYSOUT=* 00100899 +//RPC130R1 DD SYSOUT=* 00100999 +//RPT414R1 DD SYSOUT=* 00100999 +//RPT414R2 DD SYSOUT=* 00100999 +//RPT416R1 DD SYSOUT=* 00100999 +//RPT416R2 DD SYSOUT=* 00100999 +//RPT303R1 DD SYSOUT=* 00100999 +//RPT303R2 DD SYSOUT=* 00100999 +//RPT907R1 DD SYSOUT=* 00100999 +//RPT907R2 DD SYSOUT=* 00101099 +//RPC150R1 DD SYSOUT=* 00101199 +//RPC160R1 DD SYSOUT=* 00101299 +//RPT908R1 DD SYSOUT=* 00106799 +//*************************************************************** 00106899 +//PRINTER DD SYSOUT=* 00110599 +//** CONTROL REPORT SUMMARY 00110699 +//RPT980R1 DD SYSOUT=Q,COPIES=2, 00110799 +// HOLD=YES, 00110899 +// DEST=U@PRT65 00110999 +//** 00111000 +//* 00120099 +//STEP0500 EXEC PGM=DOESLABL, PRINT DOES LABELS 00131099 +// COND=(0,LT), 00140099 +// REGION=4096K 00150099 +//SYSOUT DD SYSOUT=* 00151099 +//SYSABOUT DD SYSOUT=* 00152099 +//SYSABEND DD SYSOUT=* 00153099 +//CAIMRPTS DD SYSOUT=* 00154099 +//DOESLBL1 DD SYSOUT=* 00155299 +//DOESVRI1 DD DSN=&&LABELS,DISP=(OLD,DELETE,DELETE) 00156199 +// 00157099 diff --git a/JCL/RUNGPAYT.jcl b/JCL/RUNGPAYT.jcl new file mode 100644 index 0000000..7009c43 --- /dev/null +++ b/JCL/RUNGPAYT.jcl @@ -0,0 +1,97 @@ +//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K, +// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP +/*ROUTE PRINT U@PRT65 +//******************************************************************** +//**** TDEC PAYMENT FILES ARE ENCRYPTED USING PKZIP +//**** WITH OCTO DATA CENTER PUBLIC KEY. +//**** +//*** ANY QUESTIONS WITH PGP SHOULD BE DIRECTED TO SEAN DUNN +//**** +//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY. +//**** +//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY. +//**** +//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. +//******************************************************************** +//******** CHANGE QTR PARM TO CURRENT QTR ********** +// SET CURRQTR='Q2017Q4' +//* +// SET LVLNODE='CONV' +// SET MSTNODE='PROD' +// SET PRGNODE='CONV' +// SET IMPNODE='CONV' +// SET LVDHOLD='YES' +// SET EXTNODE='CONV' +// SET RPTNODE='ESSP.BX420.RPT' +//* +//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB +//LOADLIBS INCLUDE MEMBER=DTSIJLIB +//** +//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES) +//**** GET TDEC ENCRYPTED REPORT PAYMENT FILE +//******************************************************************** +//********************************************************************* +//*STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE +//* COND=(4,LT) GENERATION +//*SYSPRINT DD SYSOUT=* +//*INDD01 DD DUMMY +//*OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1), +//* DISP=(,CATLG,DELETE), +//* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//*SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR +//********************************************************************* +//* +//*TDECFTP EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR +//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR +//* +//******************************************************************** +//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT +//******************************************************************** +//* +//*ECRYPT EXEC SECPDEC,COND=(0,LT) +//DECRYPT EXEC SECODEC,COND=(0,LT) +//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR +//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// +//******************************************************************** +//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE. +//** +//******************************************************************** +//** +//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),DISP=SHR +//* DISP=(NEW,CATLG,DELETE), +//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//******************************************************************** +//*** COPY TDEC REPORT PAYMENT FILE TO BACKUP QUARTER FILE +//** +//******************************************************************** +//** +//COPYPAYT EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT.&CURRQTR., +//* DISP=(NEW,CATLG,DELETE), +// DISP=MOD, +// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//** diff --git a/Procs/DTSBD551 b/Procs/DTSBD551 index 3335a3c..b4195d8 100644 --- a/Procs/DTSBD551 +++ b/Procs/DTSBD551 @@ -134,7 +134,7 @@ // UNIT=SYSDA, // SPACE=(8192,(1000,1000),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSRREC),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR //***** 00110002 //* REPORT GENERATION 00110002 //STEP0300 EXEC PGM=DTSBD800, 00120002 diff --git a/Procs/DTSBX148 b/Procs/DTSBX148 index 517fab4..23107cf 100644 --- a/Procs/DTSBX148 +++ b/Procs/DTSBX148 @@ -22,7 +22,7 @@ // UNIT=SYSDA, // SPACE=(CYL,(10,5),RLSE), // DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800) -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DESSR420),DISP=SHR //* //***************************************************************** //* EDIT TDEC FILE @@ -167,7 +167,7 @@ // DISP=(MOD,KEEP,KEEP), // SPACE=(CYL,(10,5)), // DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800) -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSR414),DISP=SHR //* //**************************************************** //** diff --git a/Procs/DTSBX530 b/Procs/DTSBX530 index 99bc28f..73d4b07 100644 --- a/Procs/DTSBX530 +++ b/Procs/DTSBX530 @@ -30,7 +30,8 @@ //* SPACE=(30720,(2000,2000),RLSE), 00008000 // SPACE=(CYL,(50,25),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR +//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX417, // COND=(0,LT), diff --git a/Procs/DTSDUPDU b/Procs/DTSDUPDU index 9e8a60f..3220894 100644 --- a/Procs/DTSDUPDU +++ b/Procs/DTSDUPDU @@ -347,7 +347,7 @@ // DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264099 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264199 //**** 02264299 -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264399 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264399 //**** 02264499 //** 02264599 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02264699 diff --git a/Procs/DTSNXPEN b/Procs/DTSNXPEN index e53b4ae..ce50a54 100644 --- a/Procs/DTSNXPEN +++ b/Procs/DTSNXPEN @@ -22,7 +22,8 @@ // UNIT=SYSDA, // SPACE=(30720,(1000,1000),RLSE), 00008000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 -//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR +//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX419, // COND=(0,LT), diff --git a/Procs/DTSREGPT b/Procs/DTSREGPT index 5ef9504..b31728e 100644 --- a/Procs/DTSREGPT +++ b/Procs/DTSREGPT @@ -12,7 +12,7 @@ // UNIT=SYSDA, 00002206 // SPACE=(TRK,1), 00002306 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506 // DISP=SHR 00002606 //**** /* POPULATE THE LABELS WORK FILE 00003105 //DOESLBL2 EXEC PGM=IDCAMS, 00003206 @@ -26,7 +26,7 @@ // UNIT=SYSDA, 00004005 // SPACE=(8192,(1000,1000),RLSE), 00004105 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205 -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL02), 00004305 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL02), 00004305 // DISP=SHR 00004405 //** 00004705 //STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION diff --git a/Procs/DTSRERPT b/Procs/DTSRERPT index 65e8b16..78ac08d 100644 --- a/Procs/DTSRERPT +++ b/Procs/DTSRERPT @@ -12,7 +12,7 @@ // UNIT=SYSDA, 00002206 // SPACE=(TRK,1), 00002306 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506 // DISP=SHR 00002606 //**** /* POPULATE THE LABELS WORK FILE 00003105 //DOESLBL2 EXEC PGM=IDCAMS, 00003206 diff --git a/Procs/DTSRINIT b/Procs/DTSRINIT index 44f4b50..841e206 100644 --- a/Procs/DTSRINIT +++ b/Procs/DTSRINIT @@ -23,68 +23,68 @@ //DTSR202 DD DSN=DOESTAX.CONV.RPT.R202,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX101 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101, -// DISP=(OLD,DELETE,DELETE) +//DTSBX101 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0610 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX102 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102, -// DISP=(OLD,DELETE,DELETE) +//DTSBX102 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0620 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX104 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104, -// DISP=(OLD,DELETE,DELETE) +//DTSBX104 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0630 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX106 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106, -// DISP=(OLD,DELETE,DELETE) +//DTSBX106 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0640 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX108 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108, -// DISP=(OLD,DELETE,DELETE) +//DTSBX108 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0650 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX110 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110, -// DISP=(OLD,DELETE,DELETE) +//DTSBX110 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0660 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX120 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120, -// DISP=(OLD,DELETE,DELETE) +//DTSBX120 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0670 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX140 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140, -// DISP=(OLD,DELETE,DELETE) +//DTSBX140 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0680 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144, -// DISP=(OLD,DELETE,DELETE) +//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0690 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX145 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145, -// DISP=(OLD,DELETE,DELETE) +//DTSBX145 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0700 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX149 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149, -// DISP=(OLD,DELETE,DELETE) +//DTSBX149 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0710 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144, -// DISP=(OLD,DELETE,DELETE) +//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0720 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX150 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, -// DISP=(OLD,DELETE,DELETE) +//DTSBX150 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX151 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, -// DISP=(OLD,DELETE,DELETE) +//DTSBX151 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX152 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, -// DISP=(OLD,DELETE,DELETE) +//DTSBX152 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0740 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) -//DTSBX155 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155, -// DISP=(OLD,DELETE,DELETE) +//DTSBX155 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155 +// ,DISP=(OLD,DELETE,DELETE) //********************************************************************* //STEP0800 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DTSFR202 DD DSN=DOESTAX.PROD.RPT.R202, diff --git a/Procs/DTSRQ602 b/Procs/DTSRQ602 index 2a0b4d7..3aac094 100644 --- a/Procs/DTSRQ602 +++ b/Procs/DTSRQ602 @@ -11,7 +11,7 @@ // UNIT=SYSDA, 00002206 // SPACE=(TRK,1), 00002306 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506 // DISP=SHR 00002606 //**** /* POPULATE THE LABELS WORK FILE 00003105 //DOESLBL2 EXEC PGM=IDCAMS, 00003206 diff --git a/Procs/DTSRQRPT b/Procs/DTSRQRPT index 3587b9a..2892836 100644 --- a/Procs/DTSRQRPT +++ b/Procs/DTSRQRPT @@ -12,7 +12,7 @@ // UNIT=SYSDA, 00002206 // SPACE=(TRK,1), 00002306 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506 // DISP=SHR 00002606 //**** /* POPULATE THE LABELS WORK FILE 00003105 //DOESLBL2 EXEC PGM=IDCAMS, 00003206 diff --git a/Procs/DTSZUPDT b/Procs/DTSZUPDT index 69a2b92..f96e9c1 100644 --- a/Procs/DTSZUPDT +++ b/Procs/DTSZUPDT @@ -406,7 +406,7 @@ // DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264400 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264500 //**** 02264600 -//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264700 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264700 //**** 02264800 //** 02264900 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02265000 diff --git a/doestax.conv.user.parmlib/DTSBX629 b/doestax.conv.user.parmlib/DTSBX629 new file mode 100644 index 0000000..1bf855a --- /dev/null +++ b/doestax.conv.user.parmlib/DTSBX629 @@ -0,0 +1 @@ + SORT FIELDS=(5,6,CH,A,12,6,CH,A) diff --git a/doestax.conv.user.parmlib/DTSLBL01 b/doestax.conv.user.parmlib/DTSLBL01 new file mode 100644 index 0000000..3c92599 --- /dev/null +++ b/doestax.conv.user.parmlib/DTSLBL01 @@ -0,0 +1,4 @@ + DSD OUTPUT=(LBLOUT) + FD NAME=F1,LENGTH=350,STARTLOC=1,FILL='0' + CREATE QUANTITY=1,NAME=(F1) + END diff --git a/doestax.conv.user.parmlib/DTSLBL02 b/doestax.conv.user.parmlib/DTSLBL02 new file mode 100644 index 0000000..6ecc9c8 --- /dev/null +++ b/doestax.conv.user.parmlib/DTSLBL02 @@ -0,0 +1 @@ + REPRO INFILE(FILEIN) OUTFILE(DOESVRO1) diff --git a/doestax.conv.user.parmlib/DTSSX425 b/doestax.conv.user.parmlib/DTSSX425 new file mode 100644 index 0000000..2365891 --- /dev/null +++ b/doestax.conv.user.parmlib/DTSSX425 @@ -0,0 +1 @@ + SORT FIELDS=(1,1,CH,A) diff --git a/doestax.conv.user.parmlib/DTSSX552 b/doestax.conv.user.parmlib/DTSSX552 new file mode 100644 index 0000000..5e44954 --- /dev/null +++ b/doestax.conv.user.parmlib/DTSSX552 @@ -0,0 +1 @@ + SORT FIELDS=(5,6,CH,A,12,4,CH,A,17,1,CH,A,28,8,CH,A) diff --git a/doestax.conv.user.parmlib/DTSSX553 b/doestax.conv.user.parmlib/DTSSX553 new file mode 100644 index 0000000..1bf855a --- /dev/null +++ b/doestax.conv.user.parmlib/DTSSX553 @@ -0,0 +1 @@ + SORT FIELDS=(5,6,CH,A,12,6,CH,A) diff --git a/doestax.conv.user.parmlib/UIBCHGOB b/doestax.conv.user.parmlib/UIBCHGOB new file mode 100644 index 0000000..93773b1 --- /dev/null +++ b/doestax.conv.user.parmlib/UIBCHGOB @@ -0,0 +1,9 @@ +10.57.110.147 +trwftp +Redskins2023 +cd /dutas/outbound_dutas +ascii +PUT 'DOESTAX.DEVL.TAXMAST.UIBSEMPS' tax_employers.txt +PUT 'DOESTAX.conv.UIBS.W4FILE' tax_w4wages.txt +PUT 'DOESTAX.conv.UIBS.W2FILE' tax_w2wages.txt +QUIT diff --git a/doestax.conv.user.parmlib/UIBGTCHG b/doestax.conv.user.parmlib/UIBGTCHG new file mode 100644 index 0000000..48a5d42 --- /dev/null +++ b/doestax.conv.user.parmlib/UIBGTCHG @@ -0,0 +1,7 @@ +10.83.72.214 +trwftp +Redskins2023 +cd /dutas/inbound_uibs +ascii +get DOES_Bencharges.txt 'DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD' (replace +QUIT diff --git a/doestax.conv.user.parmlib/UIBGUCHG b/doestax.conv.user.parmlib/UIBGUCHG new file mode 100644 index 0000000..b405afc --- /dev/null +++ b/doestax.conv.user.parmlib/UIBGUCHG @@ -0,0 +1,7 @@ +10.87.72.80 +trwftp +Redskins2023 +cd /dutas/inbound_uibs +ascii +get DOES_Bencharges.txt 'DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD' (replace +QUIT diff --git a/doestax.prod.appl.parmlib/DTSDDNME b/doestax.prod.appl.parmlib/DTSDDNME new file mode 100644 index 0000000..ce7b37d --- /dev/null +++ b/doestax.prod.appl.parmlib/DTSDDNME @@ -0,0 +1,23 @@ + DEL- + DOESTAX.DEVL.VSAM.WAGENAME- + NOERASE + + IF LASTCC=8 THEN- + SET MAXCC=0 + + DEFINE- + CLUSTER(- + NAME (DOESTAX.DEVL.VSAM.WAGENAME)- + KEYS (13,0)- + RECSZ (51,51)- + CYL (225,50)- + FREESPACE (10 10)- + SHR (2,3)- + SPEED- + VOL (DES39P,DES39M)- + UNQ)- + DATA - + (NAME(DOESTAX.DEVL.VSAM.WAGENAME.DATA))- + INDEX - + (NAME(DOESTAX.DEVL.VSAM.WAGENAME.INDEX)- + CISZ(1024)) diff --git a/sys2.tpip.odc3.parmlib/FTCDATA9 b/sys2.tpip.odc3.parmlib/FTCDATA9 new file mode 100644 index 0000000..45fe8e0 --- /dev/null +++ b/sys2.tpip.odc3.parmlib/FTCDATA9 @@ -0,0 +1,551 @@ +;*********************************************************************** +; * +; Name of File: SEZAINST(FTCDATA) * +; * +; Descriptive Name: FTP.DATA (for FTP Client) * +; * +; SMP/E Distribution Name: EZAFTPAC * +; * +; Copyright: Licensed Materials - Property of IBM * +; * +; "Restricted Materials of IBM" * +; * +; 5694-A01 * +; * +; (C) Copyright IBM Corp. 1977, 2002 * +; * +; US Government Users Restricted Rights - * +; Use, duplication or disclosure restricted by * +; GSA ADP Schedule Contract with IBM Corp. * +; * +; Status: CSV1R4 * +; * +; * +; This FTP.DATA file is used to specify default file and disk * +; parameters used by the FTP client. * +; * +; Note: For an example of an FTP.DATA file for the FTP server, * +; see the FTPSDATA example. * +; * +; Syntax Rules for the FTP.DATA Configuration File: * +; * +; (a) All characters to the right of and including a ; will be * +; treated as a comment. * +; * +; (b) Blanks and are used to delimit tokens. * +; * +; (c) The format for each statement is: * +; * +; parameter value * +; * +; * +; The FTP.DATA options are grouped into the following groups in * +; this sample FTP client FTP.DATA configuration data set: * +; * +; 1. Basic configuration options (timers, conditional options, etc.) * +; 2. Defaults for MVS data set creation * +; 3. Code page conversion options * +; 4. DB2 (SQL) interface options * +; 5. Security options * +; 6. Debug (trace) options * +; * +; For options that have a pre-selected set of values, a (D) indicates* +; the default value for the option. * +; * +; Options that can be changed via LOCSITE subcommands are identified * +; with an (S). * +; * +;*********************************************************************** + + +; --------------------------------------------------------------------- +; +; 1. Basic FTP client configuration options - +; Timeout values, conversion options, +; and conditional processing options +; +; --------------------------------------------------------------------- + + ASATRANS FALSE ; (S) Conversion of ASA print + ; control characters + ; TRUE = Use C conversion + ; FALSE = Do not convert (D) + + AUTOMOUNT TRUE ; (S) Automatic mount of unmounted + ; DASD volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + AUTORECALL TRUE ; (S) Automatic recall of + ; migrated data sets + ; TRUE = Recall them (D) + ; FALSE = Do not recall them + + AUTOTAPEMOUNT TRUE ; Automatic mount of unmounted + ; tape volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + BUFNO 5 ; (S) Specify number of access + ; method buffers + ; Valid range is from 1 through + ; 35 - default value is 5 + + CCONNTIME 30 ; Timeout value for successful + ; close of control connection. + ; Default value is 30 seconds. + ; Valid range is 15 through 720. + + CHKPTINT 0 ; (S) Specify the checkpoint interval + ; in number of records. + ; NB: checkpointing only works + ; with datatype EBCDIC and block + ; or compressed transfer mode. + ; 0 = no checkpoints (D) + + CONDDISP CATLG ; (S) Disposition of a new data set + ; when transfer ends prematurely + ; CATLG = Keep and catalog (D) + ; DELETE = Delete data set + + DATACTTIME 0 ; Timeout for send/receive data + ; operations. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + + DCONNTIME 120 ; Timeout value for successful + ; close of data connection. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + FTPKEEPALIVE 0 + + + DIRECTORYMODE FALSE ; (S) Specifies how to view the MVS + ; data set structure: + ; FALSE = All qualifiers below + ; (D) LCWD are treated as + ; entries in the directory + ; TRUE = Qualifiers immediately + ; below the LCWD are + ; treated as entries in the + ; directory + +;EXTENSIONS UTF8 ; Enable RFC 2640 support. + ; Default is disabled. + ; Control connection starts as + ; 7bit ASCII and switches to UTF-8 + ; encoding when LANG command + ; processed successfully. CCTRANS + ; and CTRLCONN are ignored. + + + FILETYPE SEQ ; (S) Client mode of operation + ; SEQ = transfer data sets or + ; files (D) + ; SQL = submit queries to DB2 + + INACTTIME 300 ; The time in seconds to wait for + ; an expected response from the + ; server. + ; Default value is 300 seconds. + ; Valid range is 15 through 720. + + ISPFSTATS FALSE ; TRUE = create/update PDS + ; statistics + ; FALSE =does not create/update + ; PDS statistics + + MIGRATEVOL MIGRAT ; (S) Migration volume VOLSER to + ; identify migrated data sets + ; under control of non-HSM + ; storage management products. + ; Default value is MIGRAT. + + MYOPENTIME 60 ; Connection timeout value in + ; seconds. + ; Default value is 60 seconds. + ; Valid range is 15 through 720. + + SEQNUMSUPPORT TRUE ; Sequence numbers detected in the + ; input file. + ; LEADING: Columns 1-8 + ; TRAILING: Last 8 bytes + ; Set to TRUE will ignore numbers + + QUOTESOVERRIDE TRUE ; (S) How to treat quotes at the + ; beginning or surrounding file + ; names. + ; TRUE = Override current working + ; directory (D) + ; FALSE = Treat quotes as part of + ; file name + + RDW FALSE ; (S) Specify whether Record + ; Descriptor Words (RDWs) are + ; discarded or retained. + ; TRUE = Retain RDWs and transfer + ; as part of data + ; FALSE = Discard RDWs when + ; transferring data (D) +;SOCKSCONFIGFILE /etc/socks.conf ; file path for SOCKS configuration + ; file. The SOCKS configuration + ; file specifies which FTP servers + ; should be accessed via SOCKS + + TRAILINGBLANKS FALSE ; (S) How to handle trailing blanks + ; in fixed format data sets during + ; text transfers. + ; TRUE = Retain trailing blanks + ; (include in transfer) + ; FALSE = Strip off trailing + ; blanks (D) + + UMASK 027 ; (S) Octal UMASK to restrict setting + ; of permission bits when creating + ; new HFS files + ; Default value is 027. + + WRAPRECORD FALSE ; (S) Specify what to do if no new-line + ; is encountered before reaching + ; the MVS data set record length + ; limit as defined by LRECL when + ; transferring data to MVS. + ; TRUE = Wrap data to new record + ; FALSE = Truncate data (D) + +; --------------------------------------------------------------------- +; +; 2. Default MVS data set creation attributes +; +; --------------------------------------------------------------------- + + BLKSIZE 6233 ; (S) New data set allocation block siz + +;DATACLASS SMSDATA ; (S) SMS data class name + ; There is no default + +;MGMTCLASS SMSMGNT ; (S) SMS mgmtclass name + ; There is no default + +;STORCLASS SMSSTOR ; (S) SMS storclass name + ; There is no default + +;DCBDSN MODEL.DCB ; (S) New data set allocation + ; model DCB name - must be a + ; fully qualified data set name + ; There is no default + + DIRECTORY 27 ; (S) Number of directory blocks in + ; new PDS/PDSE data sets. + ; Default value is 27. + ; Range is from 1 to 16777215. + + LRECL 256 ; (S) New data set allocation LRECL. + ; Default value is 256. + ; Valid range 0 through 32760. + + PRIMARY 1 ; (S) New data set allocation + ; primary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + RECFM VB ; (S) New data set allocation + ; record format. + ; Default value is VB. + ; Value may be specified as certain + ; combinations of: + ; A - ASA print control + ; B - Blocked + ; F - Fixed length records + ; M - Machine print control + ; S - Spanned (V) or Standard (F) + ; U - Undefined record length + ; V - Variable length records + + RETPD ; (S) New data set retention + ; period in days. + ; Blank = no retention period (D) + ; 0 = expire today + ; Valid range 0 through 9999. + ; NB: Note the difference between + ; a blank value and a value + ; of zero. + + SECONDARY 1 ; (S) New data set allocation + ; secondary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + SPACETYPE TRACK ; (S) New data set allocation + ; space type. + ; TRACK (D) + ; BLOCK + ; CYLINDER + + UCOUNT ; (S) Sets the unit count for an + ; allocation. + ; If this option is not specified + ; or is specified with a value of + ; blank, the unit count attribute + ; is not used on an allocation (D) + ; Valid range is 1 through 59 or + ; the character P for parallel + ; mount requests + +;UNITNAME SYSDA ; (S) New data set allocation unit + ; name. + ; There is no default. + + VCOUNT 59 ; (S) Volume count for an + ; allocation. + ; Valid range is 1 through 255. + ; Default value is 59. + +;VOLUME WRKLB1,WRKLB2 ; (S) Volume serial number(s) to + ; use for allocating a data set. + ; Specify either a single VOLSER + ; or a list of VOLSERs + ; separated with commas + +; --------------------------------------------------------------------- +; +; 3. Text code page conversion options +; +; --------------------------------------------------------------------- + +;CCTRANS dsn_qual ; Control connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If CTRLCONN is specified, that + ; value overrides CCTRANS. + +;CTRLCONN 7BIT ; (S) ASCII code page for + ; control connection. + ; 7BIT is the default if CTRLCONN + ; is not specified AND no TCPXLBIN + ; translation table data set found. + ; Can be specified as any iconv + ; supported ASCII code page, such + ; as IBM-850 +;DBSUB FALSE ; (S) Specifies whether untranslatable + ; data bytes should be replaced + ; with substitution character in + ; iconv() during data transfer. + ; TRUE = Replace each + ; untranslatable byte + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;ENCODING SBCS ; (S) Specifies whether multi-byte or + ; single-byte data conversion is + ; to be performed on ASCII data + ; transfers. + ; MBCS = Use multi-byte + ; SBCS = Use single-byte (D) + ; + +;MBDATACONN (IBM-1388,IBM-5488) ; (S) Specifies the conversion table + ; names for the data connection + ; when ENCODING has a value of + ; MBCS. The names are the file + ; system code page name and the + ; network transfer code page name. + +;SBDATACONN (IBM-1047,IBM-850) ; (S) file system/network transfer + ; code pages for data connection. + ; Either a fully-qualified MVS + ; data set name or HFS file name + ; built with the CONVXLAT utility - + ; HLQ.MY.TRANS.DATASET + ; /u/user1/my.trans.file + ; Or a file system code page name + ; followed by a network transfer + ; code page name according to + ; iconv supported code pages - + ; for example + ; (IBM-1047,IBM-850) + ; If the SYSFTSX DD-name is present + ; it will override SBDATACONN. + ; If neither SYSFTSX nor + ; SBDATACONN are present, std. + ; search order for a default + ; translation table data set will + ; be used. + +;SBSUB FALSE ; Specifies whether untranslatable + ; data bytes should be replaced + ; with SBSUBCHAR when detected + ; during SBCS data transfer. + ; TRUE = Replace each + ; untranslatable byte with + ; SBSUBCHAR. + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;SBSUBCHAR nn ; Specifies the substitution char + ; for SBCS data transfer when + ; SBSUB is TRUE. + ; nn = hexadecimal value from + ; 0x'00' to 0x'FF'. + ; SPACE = x'40' when target code + ; set is EBCDIC, and + ; x'20' when target code + ; set is ASCII. (D) + +;SBTRANS dsn_qual ; Data connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If SBDATACONN is specified, that + ; value overrides SBTRANS + +;UCSHOSTCS code_set ; (S) Specify the EBCDIC code set + ; to be used for data conversion + ; to or from Unicode. + ; If UCSHOSTCS is not specified, + ; the current EBCDIC code page + ; for the data connection is used. + + UCSSUB FALSE ; (S) Specify whether Unicode-to-EBCDIC + ; conversion should use the EBCDIC + ; substitution character or + ; cause the data transfer to be + ; terminated if a Unicode + ; character cannot be converted to + ; a character in the target + ; EBCDIC code set + ; TRUE = Use substitution char + ; FALSE = Terminate transfer (D) + + UCSTRUNC FALSE ; (S) Specify whether the transfer + ; of Unicode data should be + ; aborted if truncation + ; occurs at the MVS host + ; TRUE = Truncation allowed + ; FALSE = Terminate transfer (D) + +; --------------------------------------------------------------------- +; +; 4. DB2 (SQL) interface options +; +; --------------------------------------------------------------------- + + DB2 DB2 ; (S) DB2 subsystem name + ; The default name is DB2 + + DB2PLAN EZAFTPMQ ; DB2 plan name for FTP client + ; The default name is EZAFTPMQ + + SPREAD FALSE ; (S) SQL spreadsheet output format + ; TRUE = Spreadsheet format + ; FALSE = Not spreadsheet + ; format (D) + + SQLCOL NAMES ; (S) SQL output headings + ; NAMES = Use column names (D) + ; LABELS = Use column labels + ; ANY = Use label if defined, + ; else use name + +; --------------------------------------------------------------------- +; +; 5. Security options +; +; --------------------------------------------------------------------- +EPSV4 TRUE ; attempt to set up IPv4 client- + ; server data connections with the + ; EPSV command. + ; TRUE = use EPSV + ; FALSE = don't use EPSV (D) + + + SECURE_MECHANISM TLS ; Name of the security mechanism + ; that the client uses when it + ; sends an AUTH command to the + ; server. + ; GSSAPI = Kerberos support + ; TLS = TLS + +;SECURE_FTP ALLOWED ; Authentication indicator + ; ALLOWED (D) + ; REQUIRED + + SECURE_CTRLCONN PRIVATE ; Minimum level of security for + ; the control connection + ; CLEAR (D) + ; SAFE + ; PRIVATE + + SECURE_DATACONN PRIVATE ; Minimum level of security for + ; the data connection + ; NEVER + ; CLEAR (D) + ; SAFE + ; PRIVATE + +;SECURE_HOSTNAME OPTIONAL ; Authentication of hostname in + ; the server certificate + ; OPTIONAL (D) + ; REQUIRED + + +;SECURE_PBSZ 16384 ; Kerberos maximum size of the + ; encoded data blocks + ; Default value is 16384 + ; Valid range is 512 through 32768 + +; Name of a ciphersuite that can be passed to the partner during +; the TLS handshake. None, some, or all of the following may be +; specified. The number to the far right is the cipherspec id +; that corresponds to the ciphersuite's name. +CIPHERSUITE SSL_NULL_MD5 ; 01 +CIPHERSUITE SSL_NULL_SHA ; 02 +CIPHERSUITE SSL_RC4_MD5_EX ; 03 +CIPHERSUITE SSL_RC4_MD5 ; 04 +CIPHERSUITE SSL_RC4_SHA ; 05 +CIPHERSUITE SSL_RC2_MD5_EX ; 06 +CIPHERSUITE SSL_DES_SHA ; 09 +CIPHERSUITE SSL_3DES_SHA ; 0A +CIPHERSUITE SSL_AES_128_SHA ; 2F +CIPHERSUITE SSL_AES_256_SHA ; 0C + +KEYRING /usr/certs/mykey.kdb + ; Name of the keyring for TLS + ; It can be the name of an HFS + ; file (name starts with /) or + ; a resource name in the security + ; product (e.g., RACF) + +;TLSTIMEOUT 100 ; Maximum time limit between full + ; TLS handshakes to protect data + ; connections + ; Default value is 100 seconds. + ; Valid range is 0 through 86400 + +; --------------------------------------------------------------------- +; +; 6. Debug (trace) options +; +; --------------------------------------------------------------------- + +;DEBUG TIME ; time stamp client trace entries +;DEBUG ALL ; activate all traces +;DEBUG BAS ; active basic traces (marked with *) +;DEBUG FLO ; function flow +;DEBUG CMD ; * command trace +;DEBUG PAR ; parser details +;DEBUG INT ; * program initialization and termination +;DEBUG ACC ; access control (logging in) +;DEBUG SEC ; security processing +;DEBUG UTL ; utility functions +;DEBUG FSC(1) ; * file services +;DEBUG SOC(1) ; * socket services +;DEBUG SQL ; special SQL processing + diff --git a/sys2.tpip.odc3.parmlib/FTCMFTS9 b/sys2.tpip.odc3.parmlib/FTCMFTS9 new file mode 100644 index 0000000..dccb2ea --- /dev/null +++ b/sys2.tpip.odc3.parmlib/FTCMFTS9 @@ -0,0 +1,556 @@ +;*********************************************************************** +; * +; Name of File: SEZAINST(FTCDATA) * +; * +; Descriptive Name: FTP.DATA (for FTP Client) * +; * +; SMP/E Distribution Name: EZAFTPAC * +; * +; Copyright: Licensed Materials - Property of IBM * +; * +; "Restricted Materials of IBM" * +; * +; 5694-A01 * +; * +; (C) Copyright IBM Corp. 1977, 2002 * +; * +; US Government Users Restricted Rights - * +; Use, duplication or disclosure restricted by * +; GSA ADP Schedule Contract with IBM Corp. * +; * +; Status: CSV1R4 * +; * +; * +; This FTP.DATA file is used to specify default file and disk * +; parameters used by the FTP client. * +; * +; Note: For an example of an FTP.DATA file for the FTP server, * +; see the FTPSDATA example. * +; * +; Syntax Rules for the FTP.DATA Configuration File: * +; * +; (a) All characters to the right of and including a ; will be * +; treated as a comment. * +; * +; (b) Blanks and are used to delimit tokens. * +; * +; (c) The format for each statement is: * +; * +; parameter value * +; * +; * +; The FTP.DATA options are grouped into the following groups in * +; this sample FTP client FTP.DATA configuration data set: * +; * +; 1. Basic configuration options (timers, conditional options, etc.) * +; 2. Defaults for MVS data set creation * +; 3. Code page conversion options * +; 4. DB2 (SQL) interface options * +; 5. Security options * +; 6. Debug (trace) options * +; * +; For options that have a pre-selected set of values, a (D) indicates* +; the default value for the option. * +; * +; Options that can be changed via LOCSITE subcommands are identified * +; with an (S). * +; * +;*********************************************************************** + + +; --------------------------------------------------------------------- +; +; 1. Basic FTP client configuration options - +; Timeout values, conversion options, +; and conditional processing options +; +; --------------------------------------------------------------------- + + ASATRANS FALSE ; (S) Conversion of ASA print + ; control characters + ; TRUE = Use C conversion + ; FALSE = Do not convert (D) + + AUTOMOUNT TRUE ; (S) Automatic mount of unmounted + ; DASD volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + AUTORECALL TRUE ; (S) Automatic recall of + ; migrated data sets + ; TRUE = Recall them (D) + ; FALSE = Do not recall them + + AUTOTAPEMOUNT TRUE ; Automatic mount of unmounted + ; tape volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + BUFNO 5 ; (S) Specify number of access + ; method buffers + ; Valid range is from 1 through + ; 35 - default value is 5 + + CCONNTIME 30 ; Timeout value for successful + ; close of control connection. + ; Default value is 30 seconds. + ; Valid range is 15 through 720. + + CHKPTINT 0 ; (S) Specify the checkpoint interval + ; in number of records. + ; NB: checkpointing only works + ; with datatype EBCDIC and block + ; or compressed transfer mode. + ; 0 = no checkpoints (D) + + CONDDISP CATLG ; (S) Disposition of a new data set + ; when transfer ends prematurely + ; CATLG = Keep and catalog (D) + ; DELETE = Delete data set + + DATACTTIME 120 ; Timeout for send/receive data + ; operations. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + + DCONNTIME 120 ; Timeout value for successful + ; close of data connection. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + + DIRECTORYMODE FALSE ; (S) Specifies how to view the MVS + ; data set structure: + ; FALSE = All qualifiers below + ; (D) LCWD are treated as + ; entries in the directory + ; TRUE = Qualifiers immediately + ; below the LCWD are + ; treated as entries in the + ; directory + +;EXTENSIONS UTF8 ; Enable RFC 2640 support. + ; Default is disabled. + ; Control connection starts as + ; 7bit ASCII and switches to UTF-8 + ; encoding when LANG command + ; processed successfully. CCTRANS + ; and CTRLCONN are ignored. + + + FILETYPE SEQ ; (S) Client mode of operation + ; SEQ = transfer data sets or + ; files (D) + ; SQL = submit queries to DB2 + + INACTTIME 300 ; The time in seconds to wait for + ; an expected response from the + ; server. + ; Default value is 300 seconds. + ; Valid range is 15 through 720. + + ISPFSTATS FALSE ; TRUE = create/update PDS + ; statistics + ; FALSE =does not create/update + ; PDS statistics + + MIGRATEVOL MIGRAT ; (S) Migration volume VOLSER to + ; identify migrated data sets + ; under control of non-HSM + ; storage management products. + ; Default value is MIGRAT. + + MYOPENTIME 60 ; Connection timeout value in + ; seconds. + ; Default value is 60 seconds. + ; Valid range is 15 through 720. + + QUOTESOVERRIDE TRUE ; (S) How to treat quotes at the + ; beginning or surrounding file + ; names. + ; TRUE = Override current working + ; directory (D) + ; FALSE = Treat quotes as part of + ; file name + + RDW FALSE ; (S) Specify whether Record + ; Descriptor Words (RDWs) are + ; discarded or retained. + ; TRUE = Retain RDWs and transfer + ; as part of data + ; FALSE = Discard RDWs when + ; transferring data (D) +;SOCKSCONFIGFILE /etc/socks.conf ; file path for SOCKS configuration + ; file. The SOCKS configuration + ; file specifies which FTP servers + ; should be accessed via SOCKS + + TRAILINGBLANKS FALSE ; (S) How to handle trailing blanks + ; in fixed format data sets during + ; text transfers. + ; TRUE = Retain trailing blanks + ; (include in transfer) + ; FALSE = Strip off trailing + ; blanks (D) + + UMASK 027 ; (S) Octal UMASK to restrict setting + ; of permission bits when creating + ; new HFS files + ; Default value is 027. + + WRAPRECORD FALSE ; (S) Specify what to do if no new-line + ; is encountered before reaching + ; the MVS data set record length + ; limit as defined by LRECL when + ; transferring data to MVS. + ; TRUE = Wrap data to new record + ; FALSE = Truncate data (D) + + SEQNUMSUPPORT TRUE ; Sequence numbers detected in the + ; input file. + ; LEADING: Columns 1-8 + ; TRAILING: Last 8 bytes + ; Set to TRUE will ignore numbers + + +; --------------------------------------------------------------------- +; +; 2. Default MVS data set creation attributes +; +; --------------------------------------------------------------------- + + BLKSIZE 6233 ; (S) New data set allocation block siz + +;DATACLASS SMSDATA ; (S) SMS data class name + ; There is no default + +;MGMTCLASS SMSMGNT ; (S) SMS mgmtclass name + ; There is no default + +;STORCLASS SMSSTOR ; (S) SMS storclass name + ; There is no default + +;DCBDSN MODEL.DCB ; (S) New data set allocation + ; model DCB name - must be a + ; fully qualified data set name + ; There is no default + + DIRECTORY 27 ; (S) Number of directory blocks in + ; new PDS/PDSE data sets. + ; Default value is 27. + ; Range is from 1 to 16777215. + + LRECL 256 ; (S) New data set allocation LRECL. + ; Default value is 256. + ; Valid range 0 through 32760. + + PRIMARY 1 ; (S) New data set allocation + ; primary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + RECFM VB ; (S) New data set allocation + ; record format. + ; Default value is VB. + ; Value may be specified as certain + ; combinations of: + ; A - ASA print control + ; B - Blocked + ; F - Fixed length records + ; M - Machine print control + ; S - Spanned (V) or Standard (F) + ; U - Undefined record length + ; V - Variable length records + + RETPD ; (S) New data set retention + ; period in days. + ; Blank = no retention period (D) + ; 0 = expire today + ; Valid range 0 through 9999. + ; NB: Note the difference between + ; a blank value and a value + ; of zero. + + SECONDARY 1 ; (S) New data set allocation + ; secondary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + SPACETYPE TRACK ; (S) New data set allocation + ; space type. + ; TRACK (D) + ; BLOCK + ; CYLINDER + + UCOUNT ; (S) Sets the unit count for an + ; allocation. + ; If this option is not specified + ; or is specified with a value of + ; blank, the unit count attribute + ; is not used on an allocation (D) + ; Valid range is 1 through 59 or + ; the character P for parallel + ; mount requests + +;UNITNAME SYSDA ; (S) New data set allocation unit + ; name. + ; There is no default. + + VCOUNT 59 ; (S) Volume count for an + ; allocation. + ; Valid range is 1 through 255. + ; Default value is 59. + +;VOLUME WRKLB1,WRKLB2 ; (S) Volume serial number(s) to + ; use for allocating a data set. + ; Specify either a single VOLSER + ; or a list of VOLSERs + ; separated with commas + +; --------------------------------------------------------------------- +; +; 3. Text code page conversion options +; +; --------------------------------------------------------------------- + +;CCTRANS dsn_qual ; Control connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If CTRLCONN is specified, that + ; value overrides CCTRANS. + +;CTRLCONN 7BIT ; (S) ASCII code page for + ; control connection. + ; 7BIT is the default if CTRLCONN + ; is not specified AND no TCPXLBIN + ; translation table data set found. + ; Can be specified as any iconv + ; supported ASCII code page, such + ; as IBM-850 +;DBSUB FALSE ; (S) Specifies whether untranslatable + ; data bytes should be replaced + ; with substitution character in + ; iconv() during data transfer. + ; TRUE = Replace each + ; untranslatable byte + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;ENCODING SBCS ; (S) Specifies whether multi-byte or + ; single-byte data conversion is + ; to be performed on ASCII data + ; transfers. + ; MBCS = Use multi-byte + ; SBCS = Use single-byte (D) + ; + +;MBDATACONN (IBM-1388,IBM-5488) ; (S) Specifies the conversion table + ; names for the data connection + ; when ENCODING has a value of + ; MBCS. The names are the file + ; system code page name and the + ; network transfer code page name. + +;SBDATACONN (IBM-1047,IBM-850) ; (S) file system/network transfer + ; code pages for data connection. + ; Either a fully-qualified MVS + ; data set name or HFS file name + ; built with the CONVXLAT utility - + ; HLQ.MY.TRANS.DATASET + ; /u/user1/my.trans.file + ; Or a file system code page name + ; followed by a network transfer + ; code page name according to + ; iconv supported code pages - + ; for example + ; (IBM-1047,IBM-850) + ; If the SYSFTSX DD-name is present + ; it will override SBDATACONN. + ; If neither SYSFTSX nor + ; SBDATACONN are present, std. + ; search order for a default + ; translation table data set will + ; be used. + +;SBSUB FALSE ; Specifies whether untranslatable + ; data bytes should be replaced + ; with SBSUBCHAR when detected + ; during SBCS data transfer. + ; TRUE = Replace each + ; untranslatable byte with + ; SBSUBCHAR. + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;SBSUBCHAR nn ; Specifies the substitution char + ; for SBCS data transfer when + ; SBSUB is TRUE. + ; nn = hexadecimal value from + ; 0x'00' to 0x'FF'. + ; SPACE = x'40' when target code + ; set is EBCDIC, and + ; x'20' when target code + ; set is ASCII. (D) + +;SBTRANS dsn_qual ; Data connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If SBDATACONN is specified, that + ; value overrides SBTRANS + +;UCSHOSTCS code_set ; (S) Specify the EBCDIC code set + ; to be used for data conversion + ; to or from Unicode. + ; If UCSHOSTCS is not specified, + ; the current EBCDIC code page + ; for the data connection is used. + + UCSSUB FALSE ; (S) Specify whether Unicode-to-EBCDIC + ; conversion should use the EBCDIC + ; substitution character or + ; cause the data transfer to be + ; terminated if a Unicode + ; character cannot be converted to + ; a character in the target + ; EBCDIC code set + ; TRUE = Use substitution char + ; FALSE = Terminate transfer (D) + + UCSTRUNC FALSE ; (S) Specify whether the transfer + ; of Unicode data should be + ; aborted if truncation + ; occurs at the MVS host + ; TRUE = Truncation allowed + ; FALSE = Terminate transfer (D) + +; --------------------------------------------------------------------- +; +; 4. DB2 (SQL) interface options +; +; --------------------------------------------------------------------- + + DB2 DB2 ; (S) DB2 subsystem name + ; The default name is DB2 + + DB2PLAN EZAFTPMQ ; DB2 plan name for FTP client + ; The default name is EZAFTPMQ + + SPREAD FALSE ; (S) SQL spreadsheet output format + ; TRUE = Spreadsheet format + ; FALSE = Not spreadsheet + ; format (D) + + SQLCOL NAMES ; (S) SQL output headings + ; NAMES = Use column names (D) + ; LABELS = Use column labels + ; ANY = Use label if defined, + ; else use name + +; --------------------------------------------------------------------- +; +; 5. Security options +; +; --------------------------------------------------------------------- + EPSV4 TRUE ; attempt to set up IPv4 client- + ; server data connections with the + ; EPSV command. + ; TRUE = use EPSV + ; FALSE = don't use EPSV (D) + + + SECURE_MECHANISM TLS ; Name of the security mechanism + ; that the client uses when it + ; sends an AUTH command to the + ; server. + ; GSSAPI = Kerberos support + ; TLS = TLS + + SECURE_SESSION_REUSE ALLOWED ; Session reuse when SSL/TLS is used + ; protect the connections + +;SECURE_FTP ALLOWED ; Authentication indicator + ; ALLOWED (D) + ; REQUIRED + + SECURE_CTRLCONN PRIVATE ; Minimum level of security for + ; the control connection + ; CLEAR (D) + ; SAFE + ; PRIVATE + + SECURE_DATACONN PRIVATE ; Minimum level of security for + ; the data connection + ; NEVER + ; CLEAR (D) + ; SAFE + ; PRIVATE + +;SECURE_HOSTNAME OPTIONAL ; Authentication of hostname in + ; the server certificate + ; OPTIONAL (D) + ; REQUIRED + + TLSPORT 990 ; TLS implicit port 990 + + SECUREIMPLICITZOS FALSE ; initiates the TLS handshake + ; for connections to TLSPORT + +;SECURE_PBSZ 16384 ; Kerberos maximum size of the + ; encoded data blocks + ; Default value is 16384 + ; Valid range is 512 through 32768 + +; Name of a ciphersuite that can be passed to the partner during +; the TLS handshake. None, some, or all of the following may be +; specified. The number to the far right is the cipherspec id +; that corresponds to the ciphersuite's name. + CIPHERSUITE SSL_NULL_MD5 ; 01 + CIPHERSUITE SSL_NULL_SHA ; 02 + CIPHERSUITE SSL_RC4_MD5_EX ; 03 + CIPHERSUITE SSL_RC4_MD5 ; 04 + CIPHERSUITE SSL_RC4_SHA ; 05 + CIPHERSUITE SSL_RC2_MD5_EX ; 06 + CIPHERSUITE SSL_DES_SHA ; 09 + CIPHERSUITE SSL_3DES_SHA ; 0A + CIPHERSUITE SSL_AES_256_SHA ; 35 + + KEYRING /usr/certs/mykey.kdb + ; Name of the keyring for TLS + ; It can be the name of an HFS + ; file (name starts with /) or + ; a resource name in the security + ; product (e.g., RACF) + +;TLSTIMEOUT 100 ; Maximum time limit between full + ; TLS handshakes to protect data + ; connections + ; Default value is 100 seconds. + ; Valid range is 0 through 86400 + +; --------------------------------------------------------------------- +; +; 6. Debug (trace) options +; +; --------------------------------------------------------------------- + +;DEBUG TIME ; time stamp client trace entries +;DEBUG ALL ; activate all traces +;DEBUG BAS ; active basic traces (marked with *) +;DEBUG FLO ; function flow +;DEBUG CMD ; * command trace +;DEBUG PAR ; parser details +;DEBUG INT ; * program initialization and termination +;DEBUG ACC ; access control (logging in) +;DEBUG SEC ; security processing +;DEBUG UTL ; utility functions +;DEBUG FSC(1) ; * file services +;DEBUG SOC(1) ; * socket services +;DEBUG SQL ; special SQL processing + diff --git a/sys2.tpip.odc3.parmlib/FTCMGAW9 b/sys2.tpip.odc3.parmlib/FTCMGAW9 new file mode 100644 index 0000000..b9c66b3 --- /dev/null +++ b/sys2.tpip.odc3.parmlib/FTCMGAW9 @@ -0,0 +1,540 @@ +;*********************************************************************** +; * +; Name of File: SEZAINST(FTCDATA) * +; * +; Descriptive Name: FTP.DATA (for FTP Client) * +; * +; SMP/E Distribution Name: EZAFTPAC * +; * +; Copyright: Licensed Materials - Property of IBM * +; * +; "Restricted Materials of IBM" * +; * +; 5694-A01 * +; * +; (C) Copyright IBM Corp. 1977, 2002 * +; * +; US Government Users Restricted Rights - * +; Use, duplication or disclosure restricted by * +; GSA ADP Schedule Contract with IBM Corp. * +; * +; Status: CSV1R4 * +; * +; * +; This FTP.DATA file is used to specify default file and disk * +; parameters used by the FTP client. * +; * +; Note: For an example of an FTP.DATA file for the FTP server, * +; see the FTPSDATA example. * +; * +; Syntax Rules for the FTP.DATA Configuration File: * +; * +; (a) All characters to the right of and including a ; will be * +; treated as a comment. * +; * +; (b) Blanks and are used to delimit tokens. * +; * +; (c) The format for each statement is: * +; * +; parameter value * +; * +; * +; The FTP.DATA options are grouped into the following groups in * +; this sample FTP client FTP.DATA configuration data set: * +; * +; 1. Basic configuration options (timers, conditional options, etc.) * +; 2. Defaults for MVS data set creation * +; 3. Code page conversion options * +; 4. DB2 (SQL) interface options * +; 5. Security options * +; 6. Debug (trace) options * +; * +; For options that have a pre-selected set of values, a (D) indicates* +; the default value for the option. * +; * +; Options that can be changed via LOCSITE subcommands are identified * +; with an (S). * +; * +;*********************************************************************** + + +; --------------------------------------------------------------------- +; +; 1. Basic FTP client configuration options - +; Timeout values, conversion options, +; and conditional processing options +; +; --------------------------------------------------------------------- + + ASATRANS FALSE ; (S) Conversion of ASA print + ; control characters + ; TRUE = Use C conversion + ; FALSE = Do not convert (D) + + AUTOMOUNT TRUE ; (S) Automatic mount of unmounted + ; DASD volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + AUTORECALL TRUE ; (S) Automatic recall of + ; migrated data sets + ; TRUE = Recall them (D) + ; FALSE = Do not recall them + + AUTOTAPEMOUNT TRUE ; Automatic mount of unmounted + ; tape volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + BUFNO 5 ; (S) Specify number of access + ; method buffers + ; Valid range is from 1 through + ; 35 - default value is 5 + + CCONNTIME 30 ; Timeout value for successful + ; close of control connection. + ; Default value is 30 seconds. + ; Valid range is 15 through 720. + + CHKPTINT 0 ; (S) Specify the checkpoint interval + ; in number of records. + ; NB: checkpointing only works + ; with datatype EBCDIC and block + ; or compressed transfer mode. + ; 0 = no checkpoints (D) + + CONDDISP CATLG ; (S) Disposition of a new data set + ; when transfer ends prematurely + ; CATLG = Keep and catalog (D) + ; DELETE = Delete data set + + DATACTTIME 120 ; Timeout for send/receive data + ; operations. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + + DCONNTIME 120 ; Timeout value for successful + ; close of data connection. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + + DIRECTORYMODE FALSE ; (S) Specifies how to view the MVS + ; data set structure: + ; FALSE = All qualifiers below + ; (D) LCWD are treated as + ; entries in the directory + ; TRUE = Qualifiers immediately + ; below the LCWD are + ; treated as entries in the + ; directory + +;EXTENSIONS UTF8 ; Enable RFC 2640 support. + ; Default is disabled. + ; Control connection starts as + ; 7bit ASCII and switches to UTF-8 + ; encoding when LANG command + ; processed successfully. CCTRANS + ; and CTRLCONN are ignored. + + + FILETYPE SEQ ; (S) Client mode of operation + ; SEQ = transfer data sets or + ; files (D) + ; SQL = submit queries to DB2 + + INACTTIME 300 ; The time in seconds to wait for + ; an expected response from the + ; server. + ; Default value is 300 seconds. + ; Valid range is 15 through 720. + + ISPFSTATS FALSE ; TRUE = create/update PDS + ; statistics + ; FALSE =does not create/update + ; PDS statistics + + MIGRATEVOL MIGRAT ; (S) Migration volume VOLSER to + ; identify migrated data sets + ; under control of non-HSM + ; storage management products. + ; Default value is MIGRAT. + + MYOPENTIME 60 ; Connection timeout value in + ; seconds. + ; Default value is 60 seconds. + ; Valid range is 15 through 720. + + QUOTESOVERRIDE TRUE ; (S) How to treat quotes at the + ; beginning or surrounding file + ; names. + ; TRUE = Override current working + ; directory (D) + ; FALSE = Treat quotes as part of + ; file name + + RDW FALSE ; (S) Specify whether Record + ; Descriptor Words (RDWs) are + ; discarded or retained. + ; TRUE = Retain RDWs and transfer + ; as part of data + ; FALSE = Discard RDWs when + ; transferring data (D) +;SOCKSCONFIGFILE /etc/socks.conf ; file path for SOCKS configuration + ; file. The SOCKS configuration + ; file specifies which FTP servers + ; should be accessed via SOCKS + + TRAILINGBLANKS FALSE ; (S) How to handle trailing blanks + ; in fixed format data sets during + ; text transfers. + ; TRUE = Retain trailing blanks + ; (include in transfer) + ; FALSE = Strip off trailing + ; blanks (D) + + UMASK 027 ; (S) Octal UMASK to restrict setting + ; of permission bits when creating + ; new HFS files + ; Default value is 027. + + WRAPRECORD FALSE ; (S) Specify what to do if no new-line + ; is encountered before reaching + ; the MVS data set record length + ; limit as defined by LRECL when + ; transferring data to MVS. + ; TRUE = Wrap data to new record + ; FALSE = Truncate data (D) + +; --------------------------------------------------------------------- +; +; 2. Default MVS data set creation attributes +; +; --------------------------------------------------------------------- + + BLKSIZE 6233 ; (S) New data set allocation block siz + +;DATACLASS SMSDATA ; (S) SMS data class name + ; There is no default + +;MGMTCLASS SMSMGNT ; (S) SMS mgmtclass name + ; There is no default + +;STORCLASS SMSSTOR ; (S) SMS storclass name + ; There is no default + +;DCBDSN MODEL.DCB ; (S) New data set allocation + ; model DCB name - must be a + ; fully qualified data set name + ; There is no default + + DIRECTORY 27 ; (S) Number of directory blocks in + ; new PDS/PDSE data sets. + ; Default value is 27. + ; Range is from 1 to 16777215. + + LRECL 256 ; (S) New data set allocation LRECL. + ; Default value is 256. + ; Valid range 0 through 32760. + + PRIMARY 1 ; (S) New data set allocation + ; primary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + RECFM VB ; (S) New data set allocation + ; record format. + ; Default value is VB. + ; Value may be specified as certain + ; combinations of: + ; A - ASA print control + ; B - Blocked + ; F - Fixed length records + ; M - Machine print control + ; S - Spanned (V) or Standard (F) + ; U - Undefined record length + ; V - Variable length records + + RETPD ; (S) New data set retention + ; period in days. + ; Blank = no retention period (D) + ; 0 = expire today + ; Valid range 0 through 9999. + ; NB: Note the difference between + ; a blank value and a value + ; of zero. + + SECONDARY 1 ; (S) New data set allocation + ; secondary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + SPACETYPE TRACK ; (S) New data set allocation + ; space type. + ; TRACK (D) + ; BLOCK + ; CYLINDER + + UCOUNT ; (S) Sets the unit count for an + ; allocation. + ; If this option is not specified + ; or is specified with a value of + ; blank, the unit count attribute + ; is not used on an allocation (D) + ; Valid range is 1 through 59 or + ; the character P for parallel + ; mount requests + +;UNITNAME SYSDA ; (S) New data set allocation unit + ; name. + ; There is no default. + + VCOUNT 59 ; (S) Volume count for an + ; allocation. + ; Valid range is 1 through 255. + ; Default value is 59. + +;VOLUME WRKLB1,WRKLB2 ; (S) Volume serial number(s) to + ; use for allocating a data set. + ; Specify either a single VOLSER + ; or a list of VOLSERs + ; separated with commas + +; --------------------------------------------------------------------- +; +; 3. Text code page conversion options +; +; --------------------------------------------------------------------- + +;CCTRANS dsn_qual ; Control connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If CTRLCONN is specified, that + ; value overrides CCTRANS. + +;CTRLCONN 7BIT ; (S) ASCII code page for + ; control connection. + ; 7BIT is the default if CTRLCONN + ; is not specified AND no TCPXLBIN + ; translation table data set found. + ; Can be specified as any iconv + ; supported ASCII code page, such + ; as IBM-850 +;DBSUB FALSE ; (S) Specifies whether untranslatable + ; data bytes should be replaced + ; with substitution character in + ; iconv() during data transfer. + ; TRUE = Replace each + ; untranslatable byte + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;ENCODING SBCS ; (S) Specifies whether multi-byte or + ; single-byte data conversion is + ; to be performed on ASCII data + ; transfers. + ; MBCS = Use multi-byte + ; SBCS = Use single-byte (D) + ; + +;MBDATACONN (IBM-1388,IBM-5488) ; (S) Specifies the conversion table + ; names for the data connection + ; when ENCODING has a value of + ; MBCS. The names are the file + ; system code page name and the + ; network transfer code page name. + +;SBDATACONN (IBM-1047,IBM-850) ; (S) file system/network transfer + ; code pages for data connection. + ; Either a fully-qualified MVS + ; data set name or HFS file name + ; built with the CONVXLAT utility - + ; HLQ.MY.TRANS.DATASET + ; /u/user1/my.trans.file + ; Or a file system code page name + ; followed by a network transfer + ; code page name according to + ; iconv supported code pages - + ; for example + ; (IBM-1047,IBM-850) + ; If the SYSFTSX DD-name is present + ; it will override SBDATACONN. + ; If neither SYSFTSX nor + ; SBDATACONN are present, std. + ; search order for a default + ; translation table data set will + ; be used. + +;SBSUB FALSE ; Specifies whether untranslatable + ; data bytes should be replaced + ; with SBSUBCHAR when detected + ; during SBCS data transfer. + ; TRUE = Replace each + ; untranslatable byte with + ; SBSUBCHAR. + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;SBSUBCHAR nn ; Specifies the substitution char + ; for SBCS data transfer when + ; SBSUB is TRUE. + ; nn = hexadecimal value from + ; 0x'00' to 0x'FF'. + ; SPACE = x'40' when target code + ; set is EBCDIC, and + ; x'20' when target code + ; set is ASCII. (D) + +;SBTRANS dsn_qual ; Data connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If SBDATACONN is specified, that + ; value overrides SBTRANS + +;UCSHOSTCS code_set ; (S) Specify the EBCDIC code set + ; to be used for data conversion + ; to or from Unicode. + ; If UCSHOSTCS is not specified, + ; the current EBCDIC code page + ; for the data connection is used. + + UCSSUB FALSE ; (S) Specify whether Unicode-to-EBCDIC + ; conversion should use the EBCDIC + ; substitution character or + ; cause the data transfer to be + ; terminated if a Unicode + ; character cannot be converted to + ; a character in the target + ; EBCDIC code set + ; TRUE = Use substitution char + ; FALSE = Terminate transfer (D) + + UCSTRUNC FALSE ; (S) Specify whether the transfer + ; of Unicode data should be + ; aborted if truncation + ; occurs at the MVS host + ; TRUE = Truncation allowed + ; FALSE = Terminate transfer (D) + +; --------------------------------------------------------------------- +; +; 4. DB2 (SQL) interface options +; +; --------------------------------------------------------------------- + + DB2 DB2 ; (S) DB2 subsystem name + ; The default name is DB2 + + DB2PLAN EZAFTPMQ ; DB2 plan name for FTP client + ; The default name is EZAFTPMQ + + SPREAD FALSE ; (S) SQL spreadsheet output format + ; TRUE = Spreadsheet format + ; FALSE = Not spreadsheet + ; format (D) + + SQLCOL NAMES ; (S) SQL output headings + ; NAMES = Use column names (D) + ; LABELS = Use column labels + ; ANY = Use label if defined, + ; else use name + +; --------------------------------------------------------------------- +; +; 5. Security options +; +; --------------------------------------------------------------------- + EPSV4 TRUE ; attempt to set up IPv4 client- + ; server data connections with the + ; EPSV command. + ; TRUE = use EPSV + ; FALSE = don't use EPSV (D) + + + SECURE_MECHANISM TLS ; Name of the security mechanism + ; that the client uses when it + ; sends an AUTH command to the + ; server. + ; GSSAPI = Kerberos support + ; TLS = TLS + +;SECURE_FTP ALLOWED ; Authentication indicator + ; ALLOWED (D) + ; REQUIRED + + SECURE_CTRLCONN PRIVATE ; Minimum level of security for + ; the control connection + ; CLEAR (D) + ; SAFE + ; PRIVATE + + SECURE_DATACONN PRIVATE ; Minimum level of security for + ; the data connection + ; NEVER + ; CLEAR (D) + ; SAFE + ; PRIVATE + +;SECURE_HOSTNAME OPTIONAL ; Authentication of hostname in + ; the server certificate + ; OPTIONAL (D) + ; REQUIRED + + TLSPORT 990 ; TLS implicit port 990 + + TLSRFCLEVEL RFC4217 + + TLSMECHANISM ATTLS ; Invokes FTPS Client to use PAGEN + + SECUREIMPLICITZOS FALSE ; initiates the TLS handshake + ; for connections to TLSPORT + +;SECURE_PBSZ 16384 ; Kerberos maximum size of the + ; encoded data blocks + ; Default value is 16384 + ; Valid range is 512 through 32768 + +; Name of a ciphersuite that can be passed to the partner during +; the TLS handshake. None, some, or all of the following may be +; specified. The number to the far right is the cipherspec id +; that corresponds to the ciphersuite's name. + + ; Name of the keyring for TLS + ; It can be the name of an HFS + ; file (name starts with /) or + ; a resource name in the security + ; product (e.g., RACF) + +;TLSTIMEOUT 100 ; Maximum time limit between full + ; TLS handshakes to protect data + ; connections + ; Default value is 100 seconds. + ; Valid range is 0 through 86400 + +; --------------------------------------------------------------------- +; +; 6. Debug (trace) options +; +; --------------------------------------------------------------------- + +;DEBUG TIME ; time stamp client trace entries +;DEBUG ALL ; activate all traces +;DEBUG BAS ; active basic traces (marked with *) +;DEBUG FLO ; function flow +;DEBUG CMD ; * command trace +;DEBUG PAR ; parser details +;DEBUG INT ; * program initialization and termination +;DEBUG ACC ; access control (logging in) +;DEBUG SEC ; security processing +;DEBUG UTL ; utility functions +;DEBUG FSC(1) ; * file services +;DEBUG SOC(1) ; * socket services +;DEBUG SQL ; special SQL processing + diff --git a/sys2.tpip.odc3.parmlib/FTCWFPAT b/sys2.tpip.odc3.parmlib/FTCWFPAT new file mode 100644 index 0000000..2f21f12 --- /dev/null +++ b/sys2.tpip.odc3.parmlib/FTCWFPAT @@ -0,0 +1,546 @@ +;*********************************************************************** +; * +; Name of File: SEZAINST(FTCDATA) * +; * +; Descriptive Name: FTP.DATA (for FTP Client) * +; * +; Wells Fargo Common SYSFTPD Dataset used for ATTLS FTPS Clients * +; * +; SMP/E Distribution Name: EZAFTPAC * +; * +; Copyright: Licensed Materials - Property of IBM * +; * +; "Restricted Materials of IBM" * +; * +; 5694-A01 * +; * +; (C) Copyright IBM Corp. 1977, 2002 * +; * +; US Government Users Restricted Rights - * +; Use, duplication or disclosure restricted by * +; GSA ADP Schedule Contract with IBM Corp. * +; * +; Status: CSV1R4 * +; * +; * +; This FTP.DATA file is used to specify default file and disk * +; parameters used by the FTP client. * +; * +; Note: For an example of an FTP.DATA file for the FTP server, * +; see the FTPSDATA example. * +; * +; Syntax Rules for the FTP.DATA Configuration File: * +; * +; (a) All characters to the right of and including a ; will be * +; treated as a comment. * +; * +; (b) Blanks and are used to delimit tokens. * +; * +; (c) The format for each statement is: * +; * +; parameter value * +; * +; * +; The FTP.DATA options are grouped into the following groups in * +; this sample FTP client FTP.DATA configuration data set: * +; * +; 1. Basic configuration options (timers, conditional options, etc.) * +; 2. Defaults for MVS data set creation * +; 3. Code page conversion options * +; 4. DB2 (SQL) interface options * +; 5. Security options * +; 6. Debug (trace) options * +; * +; For options that have a pre-selected set of values, a (D) indicates* +; the default value for the option. * +; * +; Options that can be changed via LOCSITE subcommands are identified * +; with an (S). * +; * +;*********************************************************************** + + +; --------------------------------------------------------------------- +; +; 1. Basic FTP client configuration options - +; Timeout values, conversion options, +; and conditional processing options +; +; --------------------------------------------------------------------- + + ASATRANS FALSE ; (S) Conversion of ASA print + ; control characters + ; TRUE = Use C conversion + ; FALSE = Do not convert (D) + + AUTOMOUNT TRUE ; (S) Automatic mount of unmounted + ; DASD volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + AUTORECALL TRUE ; (S) Automatic recall of + ; migrated data sets + ; TRUE = Recall them (D) + ; FALSE = Do not recall them + + AUTOTAPEMOUNT TRUE ; Automatic mount of unmounted + ; tape volumes + ; TRUE = Mount volumes (D) + ; FALSE = Do not mount volumes + + BUFNO 5 ; (S) Specify number of access + ; method buffers + ; Valid range is from 1 through + ; 35 - default value is 5 + + CCONNTIME 30 ; Timeout value for successful + ; close of control connection. + ; Default value is 30 seconds. + ; Valid range is 15 through 720. + + CHKPTINT 0 ; (S) Specify the checkpoint interval + ; in number of records. + ; NB: checkpointing only works + ; with datatype EBCDIC and block + ; or compressed transfer mode. + ; 0 = no checkpoints (D) + + CONDDISP CATLG ; (S) Disposition of a new data set + ; when transfer ends prematurely + ; CATLG = Keep and catalog (D) + ; DELETE = Delete data set + + DATACTTIME 120 ; Timeout for send/receive data + ; operations. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + + DCONNTIME 120 ; Timeout value for successful + ; close of data connection. + ; Default value is 120 seconds. + ; Valid range is 15 through 720. + + DIRECTORYMODE FALSE ; (S) Specifies how to view the MVS + ; data set structure: + ; FALSE = All qualifiers below + ; (D) LCWD are treated as + ; entries in the directory + ; TRUE = Qualifiers immediately + ; below the LCWD are + ; treated as entries in the + ; directory + +;EXTENSIONS UTF8 ; Enable RFC 2640 support. + ; Default is disabled. + ; Control connection starts as + ; 7bit ASCII and switches to UTF-8 + ; encoding when LANG command + ; processed successfully. CCTRANS + ; and CTRLCONN are ignored. + + + FILETYPE SEQ ; (S) Client mode of operation + ; SEQ = transfer data sets or + ; files (D) + ; SQL = submit queries to DB2 + + INACTTIME 300 ; The time in seconds to wait for + ; an expected response from the + ; server. + ; Default value is 300 seconds. + ; Valid range is 15 through 720. + + ISPFSTATS FALSE ; TRUE = create/update PDS + ; statistics + ; FALSE =does not create/update + ; PDS statistics + + MIGRATEVOL MIGRAT ; (S) Migration volume VOLSER to + ; identify migrated data sets + ; under control of non-HSM + ; storage management products. + ; Default value is MIGRAT. + + MYOPENTIME 60 ; Connection timeout value in + ; seconds. + ; Default value is 60 seconds. + ; Valid range is 15 through 720. + + QUOTESOVERRIDE TRUE ; (S) How to treat quotes at the + ; beginning or surrounding file + ; names. + ; TRUE = Override current working + ; directory (D) + ; FALSE = Treat quotes as part of + ; file name + + RDW FALSE ; (S) Specify whether Record + ; Descriptor Words (RDWs) are + ; discarded or retained. + ; TRUE = Retain RDWs and transfer + ; as part of data + ; FALSE = Discard RDWs when + ; transferring data (D) + SEQNUMSUPPORT TRUE ; Sequence numbers detected in the + ; input file. + ; LEADING: Columns 1-8 + ; TRAILING: Last 8 bytes + ; Set to TRUE will ignore numbers + +;SOCKSCONFIGFILE /etc/socks.conf ; file path for SOCKS configuration + ; file. The SOCKS configuration + ; file specifies which FTP servers + ; should be accessed via SOCKS + + TRAILINGBLANKS FALSE ; (S) How to handle trailing blanks + ; in fixed format data sets during + ; text transfers. + ; TRUE = Retain trailing blanks + ; (include in transfer) + ; FALSE = Strip off trailing + ; blanks (D) + + UMASK 027 ; (S) Octal UMASK to restrict setting + ; of permission bits when creating + ; new HFS files + ; Default value is 027. + + WRAPRECORD FALSE ; (S) Specify what to do if no new-line + ; is encountered before reaching + ; the MVS data set record length + ; limit as defined by LRECL when + ; transferring data to MVS. + ; TRUE = Wrap data to new record + ; FALSE = Truncate data (D) + + FWFRIENDLY TRUE ; FTP client is firewall-friendly + +; --------------------------------------------------------------------- +; +; 2. Default MVS data set creation attributes +; +; --------------------------------------------------------------------- + + BLKSIZE 6233 ; (S) New data set allocation block siz + +;DATACLASS SMSDATA ; (S) SMS data class name + ; There is no default + +;MGMTCLASS SMSMGNT ; (S) SMS mgmtclass name + ; There is no default + +;STORCLASS SMSSTOR ; (S) SMS storclass name + ; There is no default + +;DCBDSN MODEL.DCB ; (S) New data set allocation + ; model DCB name - must be a + ; fully qualified data set name + ; There is no default + + DIRECTORY 27 ; (S) Number of directory blocks in + ; new PDS/PDSE data sets. + ; Default value is 27. + ; Range is from 1 to 16777215. + + LRECL 256 ; (S) New data set allocation LRECL. + ; Default value is 256. + ; Valid range 0 through 32760. + + PRIMARY 1 ; (S) New data set allocation + ; primary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + RECFM VB ; (S) New data set allocation + ; record format. + ; Default value is VB. + ; Value may be specified as certain + ; combinations of: + ; A - ASA print control + ; B - Blocked + ; F - Fixed length records + ; M - Machine print control + ; S - Spanned (V) or Standard (F) + ; U - Undefined record length + ; V - Variable length records + + RETPD ; (S) New data set retention + ; period in days. + ; Blank = no retention period (D) + ; 0 = expire today + ; Valid range 0 through 9999. + ; NB: Note the difference between + ; a blank value and a value + ; of zero. + + SECONDARY 1 ; (S) New data set allocation + ; secondary space units according + ; to the value of SPACETYPE. + ; Default value is 1. + ; Valid range 1 through 16777215. + + SPACETYPE TRACK ; (S) New data set allocation + ; space type. + ; TRACK (D) + ; BLOCK + ; CYLINDER + + UCOUNT ; (S) Sets the unit count for an + ; allocation. + ; If this option is not specified + ; or is specified with a value of + ; blank, the unit count attribute + ; is not used on an allocation (D) + ; Valid range is 1 through 59 or + ; the character P for parallel + ; mount requests + +;UNITNAME SYSDA ; (S) New data set allocation unit + ; name. + ; There is no default. + + VCOUNT 59 ; (S) Volume count for an + ; allocation. + ; Valid range is 1 through 255. + ; Default value is 59. + +;VOLUME WRKLB1,WRKLB2 ; (S) Volume serial number(s) to + ; use for allocating a data set. + ; Specify either a single VOLSER + ; or a list of VOLSERs + ; separated with commas + +; --------------------------------------------------------------------- +; +; 3. Text code page conversion options +; +; --------------------------------------------------------------------- + +;CCTRANS dsn_qual ; Control connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If CTRLCONN is specified, that + ; value overrides CCTRANS. + +;CTRLCONN 7BIT ; (S) ASCII code page for + ; control connection. + ; 7BIT is the default if CTRLCONN + ; is not specified AND no TCPXLBIN + ; translation table data set found. + ; Can be specified as any iconv + ; supported ASCII code page, such + ; as IBM-850 +;DBSUB FALSE ; (S) Specifies whether untranslatable + ; data bytes should be replaced + ; with substitution character in + ; iconv() during data transfer. + ; TRUE = Replace each + ; untranslatable byte + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;ENCODING SBCS ; (S) Specifies whether multi-byte or + ; single-byte data conversion is + ; to be performed on ASCII data + ; transfers. + ; MBCS = Use multi-byte + ; SBCS = Use single-byte (D) + ; + +;MBDATACONN (IBM-1388,IBM-5488) ; (S) Specifies the conversion table + ; names for the data connection + ; when ENCODING has a value of + ; MBCS. The names are the file + ; system code page name and the + ; network transfer code page name. + +;SBDATACONN (IBM-1047,IBM-850) ; (S) file system/network transfer + ; code pages for data connection. + ; Either a fully-qualified MVS + ; data set name or HFS file name + ; built with the CONVXLAT utility - + ; HLQ.MY.TRANS.DATASET + ; /u/user1/my.trans.file + ; Or a file system code page name + ; followed by a network transfer + ; code page name according to + ; iconv supported code pages - + ; for example + ; (IBM-1047,IBM-850) + ; If the SYSFTSX DD-name is present + ; it will override SBDATACONN. + ; If neither SYSFTSX nor + ; SBDATACONN are present, std. + ; search order for a default + ; translation table data set will + ; be used. + +;SBSUB FALSE ; Specifies whether untranslatable + ; data bytes should be replaced + ; with SBSUBCHAR when detected + ; during SBCS data transfer. + ; TRUE = Replace each + ; untranslatable byte with + ; SBSUBCHAR. + ; FALSE = Terminate transfer (D) + ; when untranslatable bytes are + ; detected + +;SBSUBCHAR nn ; Specifies the substitution char + ; for SBCS data transfer when + ; SBSUB is TRUE. + ; nn = hexadecimal value from + ; 0x'00' to 0x'FF'. + ; SPACE = x'40' when target code + ; set is EBCDIC, and + ; x'20' when target code + ; set is ASCII. (D) + +;SBTRANS dsn_qual ; Data connection translate + ; table data set qualifier. + ; Used to search for + ; a) userid.dsn_qual.TCPXLBIN + ; b) hlq.dsn_qual.TCPXLBIN + ; If SBDATACONN is specified, that + ; value overrides SBTRANS + +;UCSHOSTCS code_set ; (S) Specify the EBCDIC code set + ; to be used for data conversion + ; to or from Unicode. + ; If UCSHOSTCS is not specified, + ; the current EBCDIC code page + ; for the data connection is used. + + UCSSUB FALSE ; (S) Specify whether Unicode-to-EBCDIC + ; conversion should use the EBCDIC + ; substitution character or + ; cause the data transfer to be + ; terminated if a Unicode + ; character cannot be converted to + ; a character in the target + ; EBCDIC code set + ; TRUE = Use substitution char + ; FALSE = Terminate transfer (D) + + UCSTRUNC FALSE ; (S) Specify whether the transfer + ; of Unicode data should be + ; aborted if truncation + ; occurs at the MVS host + ; TRUE = Truncation allowed + ; FALSE = Terminate transfer (D) + +; --------------------------------------------------------------------- +; +; 4. DB2 (SQL) interface options +; +; --------------------------------------------------------------------- + + DB2 DB2 ; (S) DB2 subsystem name + ; The default name is DB2 + + DB2PLAN EZAFTPMQ ; DB2 plan name for FTP client + ; The default name is EZAFTPMQ + + SPREAD FALSE ; (S) SQL spreadsheet output format + ; TRUE = Spreadsheet format + ; FALSE = Not spreadsheet + ; format (D) + + SQLCOL NAMES ; (S) SQL output headings + ; NAMES = Use column names (D) + ; LABELS = Use column labels + ; ANY = Use label if defined, + ; else use name + +; --------------------------------------------------------------------- +; +; 5. Security options +; +; --------------------------------------------------------------------- + EPSV4 TRUE ; attempt to set up IPv4 client- + ; server data connections with the + ; EPSV command. + ; TRUE = use EPSV + ; FALSE = don't use EPSV (D) + + + SECURE_MECHANISM TLS ; Name of the security mechanism + ; that the client uses when it + ; sends an AUTH command to the + ; server. + ; GSSAPI = Kerberos support + ; TLS = TLS + + TLSRFCLEVEL RFC4217 + + TLSMECHANISM ATTLS ; Invokes FTPS Client to use PAGENT + + +;SECURE_FTP ALLOWED ; Authentication indicator + ; ALLOWED (D) + ; REQUIRED + + SECURE_CTRLCONN PRIVATE ; Minimum level of security for + ; the control connection + ; CLEAR (D) + ; SAFE + ; PRIVATE + + SECURE_DATACONN PRIVATE ; Minimum level of security for + ; the data connection + ; NEVER + ; CLEAR (D) + ; SAFE + ; PRIVATE + +;SECURE_HOSTNAME OPTIONAL ; Authentication of hostname in + ; the server certificate + ; OPTIONAL (D) + ; REQUIRED + + +;SECURE_PBSZ 16384 ; Kerberos maximum size of the + ; encoded data blocks + ; Default value is 16384 + ; Valid range is 512 through 32768 + +; Name of a ciphersuite that can be passed to the partner during +; the TLS handshake. None, some, or all of the following may be +; specified. The number to the far right is the cipherspec id +; that corresponds to the ciphersuite's name. + ; Name of the keyring for TLS + ; It can be the name of an HFS + ; file (name starts with /) or + ; a resource name in the security + ; product (e.g., RACF) + +;TLSTIMEOUT 100 ; Maximum time limit between full + ; TLS handshakes to protect data + ; connections + ; Default value is 100 seconds. + ; Valid range is 0 through 86400 + +; --------------------------------------------------------------------- +; +; 6. Debug (trace) options +; +; --------------------------------------------------------------------- + +;DEBUG TIME ; time stamp client trace entries +;DEBUG ALL ; activate all traces +;DEBUG BAS ; active basic traces (marked with *) +;DEBUG FLO ; function flow +;DEBUG CMD ; * command trace +;DEBUG PAR ; parser details +;DEBUG INT ; * program initialization and termination +;DEBUG ACC ; access control (logging in) +;DEBUG SEC ; security processing +;DEBUG UTL ; utility functions +;DEBUG FSC(1) ; * file services +;DEBUG SOC(1) ; * socket services +;DEBUG SQL ; special SQL processing +