Author: Biswajit Pattanayak
Posted: Wed May 10, 2017 12:56 pm (GMT 5.5)
Prino,
I am from production support so I do not have authorization to modify the code and test it in test environment. So I cannot display the data using PUT SKIP. I have requested development team to do it.
PFB the compiler listing. let me know if you need any more data.
_________________
Biswajit
Posted: Wed May 10, 2017 12:56 pm (GMT 5.5)
Prino,
I am from production support so I do not have authorization to modify the code and test it in test environment. So I cannot display the data using PUT SKIP. I have requested development team to do it.
PFB the compiler listing. let me know if you need any more data.
| Code: |
5655-W67 IBM(R) Enterprise PL/I for z/OS V4.R5.M0 (Built:20160503) Options Specified Install: Command: +DD:CSSTD PP(,,MACRO,), File: DD:CSSTD SYSPARM('PLO') CHECK(CONFORMANCE) CHECK(STORAGE) DISPLAY(WTO(ROUTCDE(11),DESC(7))) EXTRN(SHORT) GONUMBER(NOSEPARATE) LIMITS(FIXEDBIN(31,63)) LIMITS(FIXEDDEC(15,31)) LINECOUNT(32767) MARGINS(2,72,0) MAXMEM(2097152) MAXMSG(I,32767,W,32767,E,32767,S,32767) NOT('^¬') ONSNAP(STRINGRANGE) ONSNAP(STRINGSIZE) OPTIMIZE(2) OR('!|¦') PPMACRO('CASE(ASIS)') NORENT RULES(NOLAXNESTED(SOURCE)) RULES(NOLAXQUAL(STRICT,FORCE)) RULES(NOPADDING(SOURCE)) RULES(NOPROCENDONLY(SOURCE)) RULES(NOUNREF(SOURCE)) XINFO(DEF) XINFO(MSG) XINFO(SYM) XINFO(SYN) XINFO(XML) Line.File Process Statements 1.0 *PROCESS RULES(BYNAME); Install: AGGREGATE(HEXADEC) ARCH(11) ATTRIBUTES(FULL) BACKREG(5) BIFPREC(31) NOBLKOFF CMPAT(V2) CODEPAGE(01148) NOCOMMON CSECT CSECTCUT(4) DD(SYSPRINT,SYSIN,SYSLIB,SYSPUNCH,SYSLIN,SYSADATA,SYSXMLSD,SYSDEBUG) DDSQL(SYSLIB) DEFAULT(ALIGNED) DEFAULT(EBCDIC) DEFAULT(BYADDR) DEFAULT(DESCLOCATOR) DEFAULT(DESCRIPTOR) DEFAULT(DUMMY(ALIGNED)) DEFAULT(NATIVE) DEFAULT(NATIVEADDR) DEFAULT(INLINE) DEFAULT(LINKAGE(OPTLINK)) DEFAULT(NULL370) DEFAULT(NULLSTRADDR) DEFAULT(NULLSTRPTR(NULL)) DEFAULT(RETURNS(BYADDR)) NODLLINIT EXIT FILEREF FLAG(I) FLOAT(AFP(NOVOLATILE)) FLOAT(NODFP) NOHGPR NOINCLUDE LIMITS(STRING(32K)) NOMACRO MAP MDECK MSGSUMMARY(NOXREF) NONAME NEST NUMBER OBJECT OFFSET OPTIONS(ALL) PRECTYPE(DECRESULT) PREFIX(CONVERSION) PREFIX(FIXEDOVERFLOW) PREFIX(INVALIDOP) PREFIX(OVERFLOW) PREFIX(UNDERFLOW) PREFIX(ZERODIVIDE) PROCESS(KEEP) REDUCE RESPECT(DATE) RULES(IBM) RULES(NOBYNAME) RULES(NOLAXBIF) RULES(NOLAXCTL) RULES(NOLAXDCL) RULES(NOLAXDEF) RULES(NOLAXIF) RULES(NOLAXLINK) RULES(NOLAXPUNC) RULES(NOLAXSEMI) RULES(NOLAXSTRZ) RULES(NOMULTICLOSE) RULES(NOSELFASSIGN) SOURCE NOSTMT STORAGE USAGE(ROUND(IBM)) USAGE(UNSPEC(IBM)) WCHAR(BIGENDIAN) WINDOW(1970) NOWRITABLE(FWS) XREF(FULL) Options Used AGGREGATE(HEXADEC) ARCH(11) ATTRIBUTES(FULL) BACKREG(5) BIFPREC(31) BLANK('05'x) NOBLKOFF CASERULES( KEYWORD( MIXED ) ) CEESTART(FIRST) + CHECK( CONFORMANCE STORAGE ) CMPAT(V2) CODEPAGE(01148) NOCOMMON NOCOMPILE(S) NOCOPYRIGHT CSECT CSECTCUT(4) CURRENCY('$') NODBCS DD('SYSPRINT','SYSIN','SYSLIB','SYSPUNCH','SYSLIN','SYSADATA','SYSXMLSD' DDSQL('SYSLIB') DECIMAL( FOFLONASGN NOFOFLONMULT NOFORCEDSIGN NOTRUNCFLOAT ) DEFAULT(IBM ASSIGNABLE NOINITFILL NONCONNECTED DESCRIPTOR DESCLOCATOR DUMMY(ALIGNED) ORDINAL(MIN) BYADDR RETURNS(BYADDR) LINKAGE(OPTLINK) NORETCODE INLINE REORDER NOOVERLAP NONRECURSIVE ALIGNED NULL370 BIN1ARG PSEUDODUMMY NULLSTRADDR NULLSTRPTR(NULL) EVENDEC SHORT(HEXADEC) EBCDIC HEXADEC NATIVE NATIVEADDR E(HEXADEC)) DEPRECATE( BUILTIN() ENTRY() INCLUDE() VARIABLE() STMT() ) DEPRECATENEXT( BUILTIN() ENTRY() INCLUDE() VARIABLE() STMT() ) + DISPLAY( WTO( ROUTCDE( 11 ) DESC( 7 ) ) ) NODLLINIT EXIT('' 'IBMUEXIT') + EXTRN(SHORT) FILEREF FLAG(I) FLOAT( AFP(NOVOLATILE) NODFP ) FLOATINMATH(ASIS) NOGOFF + GONUMBER(NOSEPARATE) NOGRAPHIC NOHGPR NOIGNORE INCAFTER(PROCESS("")) NOINCDIR NOINCLUDE NOINITAUTO NOINITBASED NOINITCTL NOINITSTATIC NOINSOURCE NOINTERRUPT JSON( CASE(UPPER) ) LANGLVL(OS) + LIMITS( EXTNAME(7) FIXEDBIN(31,63) FIXEDDEC(15,31) NAME(100) STRING(32K) + LINECOUNT(32767) NOLINEDIR NOLIST LISTVIEW(SOURCE) NOMACRO MAP MARGINI(' ') + MARGINS(2,72) MAXBRANCH(2000) MAXGEN(100000) + MAXMEM(2097152) + MAXMSG(S 32767) MAXNEST( BLOCK(17) DO(17) IF(17) ) MAXSTMT(4096) MAXTEMP(50000) MDECK MSGSUMMARY(NOXREF) NONAME NAMES('@#$' '@#$') NATLANG(ENU) NEST + NOT('^¬') NUMBER OBJECT OFFSET + ONSNAP( STRINGRANGE STRINGSIZE ) + OPTIMIZE(2) OPTIONS(ALL) + OR('!|¦') + PP( MACRO ) NOPPCICS NOPPINCLUDE PPLIST(KEEP) + PPMACRO('CASE(ASIS)') NOPPSQL NOPPTRACE PRECTYPE(DECRESULT) PREFIX(CONVERSION FIXEDOVERFLOW INVALIDOP OVERFLOW NOSIZE NOSTRINGRANGE NOSTRINGSIZE NOSUBSCRIPTRANGE UNDERFLOW ZERODIVIDE) NOPROCEED(S) PROCESS(KEEP) QUOTE('"') REDUCE NORENT RESEXP RESPECT(DATE) RTCHECK( NONULLPTR ) + RULES(IBM NOBYNAME CONTROLLED NODECSIZE + ELSEIF EVENDEC GOTO GLOBALDO + NOLAXBIF NOLAXCTL NOLAXDCL NOLAXDEF + LAXENTRY NOLAXIF LAXINOUT NOLAXLINK + LAXMARGINS NOLAXNESTED(SOURCE) NOLAXPUNC NOLAXQUAL(STRICT,FORCE) + LAXRETURN LAXSCALE NOLAXSEMI LAXSTG + LAXSTMT NOLAXSTRZ NOMULTICLOSE NOPADDING(SOURCE) + NOPROCENDONLY(SOURCE) RECURSIVE NOSELFASSIGN NOUNREF(SOURCE)) NOSEMANTIC(S) NOSERVICE SOURCE SPILL(512) STATIC(SHORT) NOSTDSYS NOSTMT STORAGE STRINGOFGRAPHIC(GRAPHIC) NOSYNTAX(S) + SYSPARM('PLO') SYSTEM(MVS) NOTEST UNROLL(AUTO) USAGE( HEX(SIZE) ROUND(IBM) SUBSTR(STRICT) UNSPEC(IBM) ) WIDECHAR(BIGENDIAN) WINDOW(1970) NOWRITABLE(FWS) + XINFO( DEF MSG SYM SYN XML ) XML( CASE(UPPER) XMLATTR(APOSTROPHE) ) XREF(FULL) |
_________________
Biswajit