Either the TMINPUT data set or the ACTIVITY and DEFAULTS data sets can be input to TMSCONVR to produce TMC record images. These records can then be input to TMSFORMT or TMSGRW.
The minimum data required as input to TMSCONVR is the data set name and volume serial number.
//stepname EXEC PGM=TMSCONVR, // PARM='parm' //STEPLIB DD DSN=CAI.CTAPLINK,DISP=SHR //TMOUTPUT DD DSN=tmrecord.images, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,SPACE=(space1), // [DCB=BLKSIZE=N*340] *NOTE //SORTOUT DD UNIT=SYSDA,SPACE=(space2) //TMSRPT DD SYSOUT=A //SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR //SYSOUT DD SYSOUT=A //SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(space),,CONTIG) //SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(space),,CONTIG) //SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(space),,CONTIG) //SORTWK04 DD UNIT=SYSDA,SPACE=(TRK,(space),,CONTIG) //SORTWK05 DD UNIT=SYSDA,SPACE=(TRK,(space),,CONTIG) //SORTWK06 DD UNIT=SYSDA,SPACE=(TRK,(space),,CONTIG) //TMINPUT DD DSN=input,DISP=OLD¬ [//ACTIVITY DD DSN=input,DISP=OLD ] [//DEFAULTS DD DSN=defaults,DISP=OLD] //SYSWK01 DD UNIT=SYSDA,SPACE=(space2) //SYSIN DD * (control statements here) /*
Note: The BLKSIZE can be any multiple of the LRECL, 340. If no BLKSIZE is specified, the BLKSIZE defaults to 6800.
Parameter Definitions
The following parameters may be specified in any order in the PARM= field. Each parameter may be specified only once.
Specifies the preferred output date format for date fields being converted. If no value is specified, DATEFMT=(DEFAULT) is used. This date format is also used as the SYSIN input date format, unless a different date format is specified in SYSIN. The date pattern indicated by (fmt) is limited to 10 bytes and must be enclosed in parentheses. This parameter is optional. For more information on valid date formats, see Overriding the Preferred Date Pattern.
Identifies the output record format. This parameter is required.
Identifies the user exit load module name that TMSCONVR uses. The UXCO module can be named anything. The name can be a maximum of eight bytes and must follow MVS naming conventions. This parameter is optional.
When using Alpha Numeric exits TMSXITU and TMSXITE, code the XITU exit name as a parameter. The name can be a maximum of eight bytes and must follow MVS naming conventions. This parameter is optional.
Relates to the TMINPUT data set. Cannot be used with the DEFAULTS=nn and/or ACTIVITY=nn parameters. The value of nn specifies the number of physical records that make one logical record. The default is 1. This parameter is optional.
Relates to the ACTIVITY data set. Cannot be used with the TMINPUT=nn parameter. The value of nn specifies the number of physical records that make one logical record. The default is 1. This parameter is optional.
Relates to the DEFAULTS data set. Cannot be used with the TMINPUT=nn parameter. The value of nn specifies the number of physical records that make one logical record. The default is 1. This parameter is optional.
Specifies the number of errors accepted before the job takes a U0006 abend. The default is 50 and the maximum is 99999. This parameter is optional.
Causes the default values to be placed into fields not specified on the input file(s). See Keywords and Their Use. Optional.
JCL Considerations
Is the amount of space required for the number of records to be generated. The output record block size is 3400 (340-byte records blocked by 10).
Is the amount of space required for records 386-bytes long, blocked 10 records per block. There is approximately one output record for each logical input record.
The input data set may reside on any input device as a sequential data set. If it is a member of a PDS (partitioned data set), it must be called as DSN=dsname (member) in the JCL. If it is on NL tapes, the DCB data must be provided. If it is statement input, it must be called as *,DCB=BLKSIZE=80 in the JCL.
An example PARM list is:
PARM='DATEFMT=(MMMDD YYYY),TMRECORD,MAXERR=99,HEXZEROS'
TMSCONVR creates output records in TMRECORD image format. All output dates are formatted according to the date pattern MMMDD YYYY. A maximum of 99 errors is accepted before the job terminates with a U006 abend. Values are assigned to fields not specified on the input files.
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|