The SCLM Attachment supports error feedback for COBOL programs in connection with an SCLM build. Use the compiler option ADATA together with the COBOL exit TAURTOCX, and allocate the error feedback file as a member of a PDS file in a build translator. Use the REXX procedure TAUSCPLA for this purpose.
A maximum of 250 messages are returned from the exit. You can reduce this amount using the option /N. The maximum number of warning and informational messages is specified with /W, and this value must be fewer than the one specified for /N. If not specified, the default value is set to 20.
FLMTRNSL CALLNAM='XMLDAT', C
FUNCTN=BUILD, C
CALLMETH=ISPLNK, C
COMPILE=SELECT, C
VERSION=1.0, C
GOODRC=0, C
PDSDATA=Y, C
PORDER=1, C
OPTIONS='CMD(TAUSCPLA §§FLMMBR)NEST'
FLMTRNSL CALLNAM='ENTERPRISE COBOL COMPILER', C
FUNCTN=BUILD, C
COMPILE=IGYCRCTL, C
DSNAME=IGY410.SIGYCOMP, C
VERSION=3.3.1, C
GOODRC=4, C
PORDER=1, C
OPTIONS='FLAG(I,I),ADATA,LIB,LIST,TEST(NOHOOK,SEPARATE),C
EXIT(ADEXIT(''/N 100 /W 50'',TAURTOCX))'
* (* SYSADATA *)
FLMALLOC IOTYPE=W,RECFM=VB,LRECL=1020,RECNUM=500000, C
DDNAME=SYSADATA