giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - 29Jul2025-update-from-Srujani

Browse Source
This commit is contained in:
Neeraj Kumar
2025-08-01 06:27:38 -04:00
parent ca3572c5df
commit cbd5346313
56 changed files with 3234 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

146
ASMB/UCTRAN41.asm Normal file
View File

@ -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

30
JCL/DTSBK325.jcl Normal file
View File

@ -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
//****

2
JCL/DTSBX479.jcl
View File

@ -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
//
//*******************************************************************

7
JCL/DTSBX552.jcl
View File

@ -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

6
JCL/DTSBX553.jcl
View File

@ -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

3
JCL/DTSBX629.jcl
View File

@ -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

32
JCL/DTSFT902.jcl Normal file
View File

@ -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
//*

32
JCL/DTSFT910.jcl Normal file
View File

@ -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
//*

2
JCL/DTSGSID0.jcl
View File

@ -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
//*******************************************************************
//*

15
JCL/DTSPODC2.jcl Normal file
View File

@ -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
//*

15
JCL/DTSPODC5.jcl Normal file
View File

@ -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
//*

3
JCL/DTSPODCA.jcl Normal file
View File

@ -0,0 +1,3 @@
/LOGON CA7BTCH,UIB1USR
DEMAND,JOB=DTSPODC4
/LOGOFF

22
JCL/DTSUC30X.jcl Normal file
View File

@ -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
//**

18
JCL/DTSUC3HX.jcl Normal file
View File

@ -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
//**

24
JCL/DTSXMTBX.jcl Normal file
View File

@ -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

73
JCL/ECNTVCGQ.jcl Normal file
View File

@ -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

9
JCL/G1EPPUT3.jcl Normal file
View File

@ -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

3
JCL/GOVPODCP.jcl Normal file
View File

@ -0,0 +1,3 @@
/LOGON CA7BTCH,UIB1USR
DEMAND,JOB=DTSPODC6
/LOGOFF

9
JCL/OD1TOOD2.jcl Normal file
View File

@ -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

40
JCL/RUNBZ057.jcl Normal file
View File

@ -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)
//*
//*********************************************************************

30
JCL/RUNBZ084.jcl Normal file
View File

@ -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)
/*
//****

41
JCL/RUNBZ258.jcl Normal file
View File

@ -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
//*********************************************************************

22
JCL/RUNBZ268.jcl Normal file
View File

@ -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
//*
//*********************************************************************

25
JCL/RUNBZ279.jcl Normal file
View File

@ -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')
//*
//

30
JCL/RUNBZ312.jcl Normal file
View File

@ -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)
/*
//****

30
JCL/RUNBZ313.jcl Normal file
View File

@ -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')
//***
//*****

21
JCL/RUNBZ330.jcl Normal file
View File

@ -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')
//*********************************************************************

21
JCL/RUNBZ365.jcl Normal file
View File

@ -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')
//*********************************************************************

21
JCL/RUNBZ385.jcl Normal file
View File

@ -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')
//*********************************************************************

120
JCL/RUNBZ800.jcl Normal file
View File

@ -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

97
JCL/RUNGPAYT.jcl Normal file
View File

@ -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
//**
//**

2
Procs/DTSBD551
View File

@ -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

4
Procs/DTSBX148
View File

@ -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
//*
//****************************************************
//**

3
Procs/DTSBX530
View File

@ -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),

2
Procs/DTSDUPDU
View File

@ -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

3
Procs/DTSNXPEN
View File

@ -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),

4
Procs/DTSREGPT
View File

@ -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

2
Procs/DTSRERPT
View File

@ -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

64
Procs/DTSRINIT
View File

@ -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,

2
Procs/DTSRQ602
View File

@ -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

2
Procs/DTSRQRPT
View File

@ -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

2
Procs/DTSZUPDT
View File

@ -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

1
doestax.conv.user.parmlib/DTSBX629 Normal file
View File

@ -0,0 +1 @@
SORT FIELDS=(5,6,CH,A,12,6,CH,A)

4
doestax.conv.user.parmlib/DTSLBL01 Normal file
View File

@ -0,0 +1,4 @@
DSD OUTPUT=(LBLOUT)
FD NAME=F1,LENGTH=350,STARTLOC=1,FILL='0'
CREATE QUANTITY=1,NAME=(F1)
END

1
doestax.conv.user.parmlib/DTSLBL02 Normal file
View File

@ -0,0 +1 @@
REPRO INFILE(FILEIN) OUTFILE(DOESVRO1)

1
doestax.conv.user.parmlib/DTSSX425 Normal file
View File

@ -0,0 +1 @@
SORT FIELDS=(1,1,CH,A)

1
doestax.conv.user.parmlib/DTSSX552 Normal file
View File

@ -0,0 +1 @@
SORT FIELDS=(5,6,CH,A,12,4,CH,A,17,1,CH,A,28,8,CH,A)

1
doestax.conv.user.parmlib/DTSSX553 Normal file
View File

@ -0,0 +1 @@
SORT FIELDS=(5,6,CH,A,12,6,CH,A)

9
doestax.conv.user.parmlib/UIBCHGOB Normal file
View File

@ -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

7
doestax.conv.user.parmlib/UIBGTCHG Normal file
View File

@ -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

7
doestax.conv.user.parmlib/UIBGUCHG Normal file
View File

@ -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

23
doestax.prod.appl.parmlib/DTSDDNME Normal file
View File

@ -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))

551
sys2.tpip.odc3.parmlib/FTCDATA9 Normal file
View File

@ -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 <end-of-line> 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

556
sys2.tpip.odc3.parmlib/FTCMFTS9 Normal file
View File

@ -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 <end-of-line> 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

540
sys2.tpip.odc3.parmlib/FTCMGAW9 Normal file
View File

@ -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 <end-of-line> 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

546
sys2.tpip.odc3.parmlib/FTCWFPAT Normal file
View File

@ -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 <end-of-line> 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