Troubleshooting
Problem
TWSz datasets EQQEVDS,EQQSUDS, EQQTWSIN and EQQTWSOU must be allocated as unmovable (DSORG=PSU).
Cause
Resolving The Problem
TRSMAIN requires a JCL change to work with unmovable datasets
When trying to terse these files to send documentation to IBM (per INFO APAR II13819) the following error messages are seen and the terse execution ends with RC=10:
**** STARTING TERSE ENCODE PACK ****
INPUT - DDNAME: INFILE DSNAME: TWSZ.VR2M0.EV
** ERROR: INPUT DATASET HAS AN UNSUPPORTED DATASET ORGANIZATION
**** FINISHED TERSE ENCODE PACK ****
RETURN CODE: 10
To avoid this problem, add an explicit DSORG=PS to the INPUT DD for the TRSMAIN job for any unmovable files. For example:
//TERSE EXEC PGM=TRSMAIN,PARM='PACK'
//SYSPRINT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=TWSZ.V8R2M0.EV,DSORG=PS
//OUTFILE DD DISP=(NEW,CATLG),SPACE=(CYL,(1,1),RLSE),
// DSN=TWSZ.V8R2M0.EV.TRS
PLEASE NOTE: Beginning in z/OS 1.7, TRSMAIN is replaced by AMATERSE. AMATERSE has an entrypoint alias of TRSMAIN, and accepts TRSMAIN-format INPUT and OUTPUT DD statements. *HOWEVER* AMATERSE CAN NOT HANDLE PSU datasets unless they are CLOSED. It completely ignores the DSORG parameter on the input DD statement.
To TERSE PSU datasets using AMATERSE, you must either stop all tasks that have the dataset in their JCL, or use IEBGENER to capture a copy of the dataset, then TERSE the copy.
An alternative is to STEPLIB the TERSE job to a copy of the REAL TRSMAIN load module, which is still available for download from IBM.COM.
Was this topic helpful?
Document Information
Modified date:
13 September 2019
UID
swg21230678