bdfi1m0i | Installation and Customization |
This section describes the adjustments that you must make to your ALCS environment when installing the TPFDF product in an ALCS environment.
Follow the instructions in this section to:
In the ALCS generation macro, do the following:
Figure 2 shows an example with the required information highlighted. Member BDFGW0 in the sample JCL that is shipped with the TPFDF product contains sample definitions. For more information about the ALCS macro, see ALCS Installation and Customization.
ALCS ID=W,VERSION=0, - SOURCE=('user.maclib', - 'BDF.V1R1M3.BDFMAC1', - 'DXC.V2R1M1.DXCMAC1', - 'DXC.V2R1M1.DXCMAC3', - 'DXC.V2R1M1.DXCMAC2', - 'BDF.V1R1M3.BDFMAC2', - 'BDF.V1R1M3.BDFMAC3'), - LOAD='DXC.V2R1M1.DXCLMD4', - CISIZE=(512,2048,4096,4608), - RECSIZE=(381,1055,4000,4095), - PROC=((ASMHC,C),(LKED,LKED))
In the DXCURID macro, define fixed file types.
Figure 3 shows an example of the required information. Member DXCURID in the sample JCL that is shipped with the TPFDF product contains sample definitions. For more information about the DXCURID macro, see ALCS Installation and Customization.
Figure 3. Sample Fixed File Definitions
&DXCFN(61) SETC '#IDFCS' MISCELLANEOUS SMALL &DXCFV(61) SETA 56 &DXCFN(62) SETC '#IDFCL' MISCELLANEOUS LARGE &DXCFV(62) SETA 57 &DXCFN(63) SETC '#IDFC4' MISCELLANEOUS 4K &DXCFV(63) SETA 58 &DXCFN(64) SETC '#IDFUS' MISCELLANEOUS SMALL &DXCFV(64) SETA 59 &DXCFN(65) SETC '#IDFUL' MISCELLANEOUS LARGE &DXCFV(65) SETA 60 &DXCFN(66) SETC '#IDFU4' MISCELLANEOUS 4K &DXCFV(66) SETA 61 &DXCFN(67) SETC '#GR3MSR' MACRO LABEL SUPPORT &DXCFV(67) SETA 62 &DXCFN(68) SETC '#IRDIDF' DATA COLLECTION &DXCFV(68) SETA 63 &DXCFN(69) SETC '#IR02DF' TPFDF EDUCATAION FILE &DXCFV(69) SETA 64 &DXCFN(70) SETC '#IR03DF' TPFDF EDUCATION FILE &DXCFV(70) SETA 65 &DXCFN(71) SETC '#IRCBDF' CRUISE &DXCFV(71) SETA 66 &DXCFN(72) SETC '#IRCFDF' CRUISE &DXCFV(72) SETA 67 &DXCFN(73) SETC '#IRCGDF' CRUISE &DXCFV(73) SETA 68 &DXCFN(74) SETC '#IRCHDF' CRUISE &DXCFV(74) SETA 69 &DXCFN(75) SETC '#IRCIDF' CRUISE &DXCFV(75) SETA 70 &DXCFN(76) SETC '#IRCJDF' CRUISE &DXCFV(76) SETA 71 &DXCFN(77) SETC '#IRCKDF' CRUISE &DXCFV(77) SETA 72
The SCTGEN macro contains the system control parameters in an ALCS environment and generates the ALCS configuration table. The following parameters are part of the SCTGEN macro that can be specified when the TPFDF product is used in an ALCS environment.
Notes:
See ALCS Installation and Customization for more information about the SCTGEN macro and the ZTRAC CEP command.
In the SEQGEN macro, define the DSNAME parameter with the same name that you use for the LABOUT DD DSN statement in the MLS JCL. The LABOUT DD DSN statement is shown in member MLS in the sample JCL that is shipped with the TPFDF product.
Figure 4 shows an example of an SEQGEN macro with the defined DSNAME highlighted.
Figure 4. Specifying Macro Label Set Support
*---------------------------------------------------------------------* * FILE REQUIRED FOR TPFDF MACRO LABEL SET SUPPORT * *---------------------------------------------------------------------* SEQGEN NAME=MLS, - TYPE=GENERAL, - UNIT=(3380,1), - DISP=(OLD,KEEP,KEEP), - DSNAME=user.mls_data_set, - LABEL=(,,,IN,RETPD=0), - STANDBY=NO, - VOLCNT=1, - BUFNO=1 *---------------------------------------------------------------------*
In the SYSEQ macro, do the following:
The TPFDF product uses symbols to indicate the size (in bytes) of working storage blocks. The #GBSZE symbol must be equated in your SYSEQ to the value shown in Figure 5.
The sample JCL that is shipped with the TPFDF product contains a sample SYSEQ macro that you can change to suit your installation.
Figure 5. Working Storage Sizes and Miscellaneous Record Equates
SPACE 1 #GBSZE EQU 4095 L4 BLOCK SIZE SPACE 1 ******** ORDINALS FOR #IDFUS SPACE 1 #GR31SRF EQU 0 #GR31SRL EQU #GR31SRF SPACE 1 ******** ORDINALS FOR #IDFCS SPACE 1 #IRDKDFF EQU 2 #IRDKDFL EQU #IRDKDFF SPACE 1 ******** ORDINALS FOR #IDFCL SPACE 1 #GR32SRF EQU 0 #GR32SRL EQU #GR32SRF #IR01DFF EQU 1 #IR01DFL EQU #IR01DFF SPACE 1 ******** ORDINALS FOR #IDFU4 SPACE 1 #GR0VSRF EQU 0 #GR0VSRL EQU #GR0VSRF #GR0YSRF EQU 1 #GR0YSRL EQU #GR0YSRF #GR27SRF EQU 2 #GR27SRL EQU #GR27SRF #GR25SRF EQU 3 #GR25SRL EQU #GR25SRF SPACE 1 ******** ORDINALS FOR #IDFC4 SPACE 1 #GR28SRF EQU 0 #GR28SRL EQU #GR28SRF #GR3OSRF EQU 1 #GR3OSRL EQU #GR3OSRF #IRA5DFF EQU 5 #IRA5DFL EQU #IRA5DFF #IRCADFF EQU 6 #IRCADFL EQU #IRCADFF #IRCCDFF EQU 7 #IRCCDFL EQU #IRCCDFF #IRCDDFF EQU 8 #IRCDDFL EQU #IRCDDFF SPACE 1
In the DBGEN macro, code USRDTA macros to allocate the records required by the TPFDF product. See Figure 6 or member BDFGEND in the sample JCL that is shipped with the TPFDF product for an example of USRDTA macros.
Figure 6. Sample USRDTA Macros
USRDTA ACTION=ADD,TYPE=#IDFCS,BAND=4200, - VFAOPT=FI,SIZE=L1,USAGE=Z1,NUMBER=20 USRDTA ACTION=ADD,TYPE=#IDFCL,BAND=4201, - VFAOPT=FI,SIZE=L2,USAGE=Z1,NUMBER=20 USRDTA ACTION=ADD,TYPE=#IDFC4,BAND=4202, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=50 USRDTA ACTION=ADD,TYPE=#IDFUS,BAND=4203, - VFAOPT=FI,SIZE=L1,USAGE=Z1,NUMBER=10 USRDTA ACTION=ADD,TYPE=#IDFUL,BAND=4204, - VFAOPT=FI,SIZE=L2,USAGE=Z1,NUMBER=10 USRDTA ACTION=ADD,TYPE=#IDFU4,BAND=4205, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=60 USRDTA ACTION=ADD,TYPE=#GR3MSR,BAND=403A, - VFAOPT=FI,SIZE=L2,USAGE=Z1,NUMBER=99 USRDTA ACTION=ADD,TYPE=#IRDIDF,BAND=4206, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=256 USRDTA ACTION=ADD,TYPE=#IR02DF,BAND=4211, - VFAOPT=FI,SIZE=L1,USAGE=Z1,NUMBER=26 USRDTA ACTION=ADD,TYPE=#IR03DF,BAND=4212, - VFAOPT=FI,SIZE=L1,USAGE=Z1,NUMBER=26 USRDTA ACTION=ADD,TYPE=#IRCBDF,BAND=4213, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=200 USRDTA ACTION=ADD,TYPE=#IRCFDF,BAND=4214, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=499 USRDTA ACTION=ADD,TYPE=#IRCGDF,BAND=4215, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=499 USRDTA ACTION=ADD,TYPE=#IRCHDF,BAND=4216, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=32 USRDTA ACTION=ADD,TYPE=#IRCIDF,BAND=4217, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=499 USRDTA ACTION=ADD,TYPE=#IRCJDF,BAND=4218, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=32 USRDTA ACTION=ADD,TYPE=#IRCKDF,BAND=4219, - VFAOPT=FI,SIZE=L4,USAGE=Z1,NUMBER=200
Table 13. Fixed Records Required by TPFDF
Name | Size | Quantity |
---|---|---|
#IDFCS | L1 | 20 |
#IDFCL | L2 | 20 |
#IDFC4 | L4 | 50 |
#IDFUS | L1 | 10 |
#IDFUL | L2 | 10 |
#IDFU4 | L4 | 60 |
#GR3MSR | L2 | 99 |
#IRDIDF | L4 | 256 |
#IR02DF | L1 | 26 |
#IR03DF | L1 | 36 |
#IRCBDF | L4 | 200 |
#IRCFDF | L4 | 499 |
#IRCGDF | L4 | 499 |
#IRCHDF | L4 | 32 |
#IRCIDF | L4 | 499 |
#IRCJDF | L4 | 32 |
#IRCKDF | L4 | 200 |
|
Run the following generations with the modified data:
Check that the data sets listed in the DASD generation stage 1 listing (under the heading of Data Base DASD Requirements) exist and are large enough. If they do not exist or are not large enough, use the sample JCL that is shipped with the TPFDF product to delete, create, and initialize L4 data sets. You will find this JCL in member BDFL4 of the sample JCL.
If you are installing TPFDF for the first time, you must install the BDFUACM1 USERMOD for ACM1 to ALCS. The sample JCL that is shipped with the TPFDF product lists sample JCL to receive and apply this USERMOD.
Check the modifications carefully before applying them to your ALCS libraries because you may have to adjust them to suit your system, particularly if you already have USERMODs on the affected programs.
To change the program configuration table for this version of the TPFDF product, do the following:
Figure 7. Sample PROGLIST Entries
MLIST DC 0D'0' . . . DC CL8'TPFDFC3 ',AL1(CP0MDUN),AL3(0) TPFDF 'C' SUPPORT DC CL8'TPFDF03 ',AL1(CP0MDUN),AL3(0) TPFDF EVERYTHING ELSE DC CL8'UF1A ',AL1(CP0MDUN),AL3(0) USER'S UF1A . . . MLISTE EQU *
See ALCS Installation and Customization for more information about changing the program configuration table.
Sample recoup user exit code, ARD0, ARD1 and ARD2, lets you enter ALCS recoup definitions using DBDEF statements. To use the sample recoup user exit code, perform the following steps: