Quantcast
Channel: Net Express / Server Express - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 191

Compiling a COBOL program with XML output.

$
0
0

Hi,

I am trying to compile a program using ORGANIZATION IS XML.  I am receiving the following (from the LST) but do not know why.  Can anyone help?


* Micro Focus Net Express            V5.1 revision 000 11-Dec-15 12:20 Page   1
* EP032CBL.cbl
* Options: NOLIST NOASMLIST OMF(OBJ) GNT(.\) OBJ(.\)
*          DIRECTIVES(D:\EPS_SYSTEMS\BASE_RLSE_CSC\wmaNEX\ENV\NETEXP.DIR)
     1 $SET P(PREXML) WARN ENDP                                                                                    1
* Setting: NOACCEPTREFRESH NOADV ALIGN"8" ALPHASTART"1" ALTER NOAMODE ANIM
*          NOANIMPREP ANS85 APOST NOAREACHECK ARITHMETIC"MF" ASSIGN"EXTERNAL"
*          NOASSIGN-PRINTER NOAUTOLOCK NOBELL NOBOUND NOBRIEF NOBS2000 BWZSTAR
*          NOBYTEMODEMOVE CALLFH"EXTFH" NOCALLMCS NOCALLRECOVERY CALLSORT
*          "EXTSM" CANCEL CANCELLBR NOCHANGEMESSAGE CHARSET"ASCII" CHECKDIV
*          "VSC2" NOCHECKREFMOD NOCICS CICS-CPY NOCICSOPTIMIZE NOCMPR2
*          NOCOBFSTATCONV NOCOBIDY COBOL370"2" COBOLDIR NOCOMP COMP-5"2"
*          COMP-6"2" NOCOMS85 NOCONFIRM NOCONVERTRET CONVSPACE COPYEXT
*          "cbl,CPY," NOCOPYLBR COPYLIST COPYLISTCOMMENT"1" CSI CURRENCY-SIGN
*          "36" CURRENT-DATE"MMDDYY" NODATA DATACOMPRESS"0" NODATA-CONTEXT
*          DATE DBCHECK DBCS"3" NODBCSSOSI DBSPACE DE-EDIT"2" DEFAULTBYTE"0"
*          NODEFAULTCALLS DETECTLOCK NODG DIALECT"MF" DIRECTIVES-IN-COMMENTS
*          NODOSVS NODPCINSUBSCRIPT DYNAM NOEARLY-RELEASE ECHO NOECHOALL
*          EDITOR"MF2" ENSUITE"0" NOENTCOBOL ERRFORMAT"1" ERRLIST"VERBOSE"
*          NOERRQ FASTSORT NOFCD3 NOFCDREG NOFDCLEAR NOFILESHARE FILETYPE"0"
*          NOFLAG NOFLAGAS NOFLAGCD NOFLAGEUC NOFLAGMIG NOFLAGQ FLAGSINEDIT
*          NOFLAGSTD NOFOLDCALLNAME NOFOLDCOPYNAME FORM"60" NOFP-ROUNDING
*          NOHOSTARITHMETIC NOHOSTCONTZERO NOHOST-NUMCOMPARE NOHOST-NUMMOVE
*          NOHOSTFD NOHOSTRW IBMCOMP IDXFORMAT"0" NOILGEN IMPLICITSCOPE NOINDD
*          INFORETURN"0" NOINITCALL INITPTR INT"EP032CBL.int" INTDATE"ANSI"
*          INTLEVEL"2" IOCONV NOISO2002 NOIXNLSKEY NOIXNUMKEY KEEP-INT
*          KEYCHECK KEYCOMPRESS"0" NOLIBRARIAN NOLINE-COUNT LIST"EP032CBL.lst"
*          LISTPATH"" LISTWIDTH"132" LITVAL-SIZE"4" LOCKTYPE"0" NOMAPNAME
*          NOMAXERROR METHODDEFAULT"REFERENCE" MF"15" MFCOMMENT NOMOVELENCHECK
*          NOMS NOMVS NATIVE"ASCII" NONATIVEFLOATINGPOINT NONCHAR
*          NONEWBASENAME NONLS NSYMBOL"DBCS" NOODOOSVS NOODOSLIDE
*          NOOLDBLANKLINE NOOLDCOPY NOOLDINDEX NOOLDNEXTSENTENCE NOOLDREADINTO
*          NOOLDSTRMIX OOCTRL"-C-E-G-P+Q+R-S+W" OPTIONAL-FILE NOOS390 OSEXT
*          "cbl" NOOSVS OUTDD"SYSOUT 132 L" NOP64 NOPANVALET NOPC1
*          PERFORM-TYPE"OSVS" NOPREPLIST PREPROCESS"PREXML" NOPRINT-EXT
*          NOPROFILE NOPROGID-COMMENT NOPROGID-INT-NAME NOPROTECT-LINKAGE
*          PROTOTYPE"RELAXED" QUAL QUALPROC NOQUERY NOQUOTE NORAWLIST NORDW
*          RECMODE"F" NOREENTRANT NOREF NOREFNO REMAINDER"1" REPORT-LINE"256"
*          RESEQ NORETRYLOCK REWRITE-LS NORM RTNCODE-SIZE"4" NORWHARDPAGE
*          NOSAA SEG NOSEQCHK SEQUENTIAL"RECORD" NOSERIAL SETTING"LINE"
*          NOSHAREOUTDD NOSHOW-DIR SIGN"ASCII" NOSIGNDISCARD NOSIGNFIXUP
*          SORTTYPE"DFSORT" SOURCEFORMAT"FIXED" SOURCETABSTOP"8" NOSPZERO
*          NOSSRANGE NOSTDERR NOSTICKY-LINKAGE NOSTICKY-PERFORM SUPFF
*          SWITCHTYPE"1" SYMBSTART"1" SYSPUNCH"132" TERMPAGE TIME NOTRACE
*          NOTRUNC NOTRUNCCALLNAME NOTRUNCCOPY TRUNCINC"10" UNICODE"NATIVE"
*          VERBOSE NOVSC2 WARNING"1" NOWB NOWB2 NOWB3 WEBSERVER"CGI"
*          NOWRITELOCK NOWRITETHRU NOXOPEN NOXREF NOZEROLENGTHFALSE NOZEROSEQ
*          NOZWB
     2 IDENTIFICATION DIVISION.                                                                                    2
     3 PROGRAM-ID. EP032CBL.                                                                                       3
     4*TITLE.      CONFIRMATION LETTERS TO CSF FILE.                                                               4
     5 AUTHOR.     NAME        .                                                                                   5
     6 DATE-WRITTEN. MARCH, 2009.                                                                                  6
     7 DATE-COMPILED.                                                                                              7

* Micro Focus Net Express            V5.1 revision 000 11-Dec-15 12:20 Page   2
* EP032CBL.cbl
    35 ENVIRONMENT DIVISION.                                                                                      35
    36 INPUT-OUTPUT SECTION.                                                                                      36
    37 FILE-CONTROL.                                                                                              37
    38                                                                                                            38
    39     SELECT EXTRACT-IN8       ASSIGN TO EXTRACT8.                                                           39
    40     SELECT EXTRACT-OUT9      ASSIGN TO EXTERNAL EXTRACT9         WSJAN11M                                  40
    41            ORGANIZATION   IS XML                                                                           41
* 131-S********************************                                (   0)**                                   42
**    Unrecognized phrase in SELECT clause                                                                        42
    42            DOCUMENT-TYPE  IS EXTERNAL EP564CPY.xsd.                                                        42
    43     SELECT ERROR-REPORT-OUT  ASSIGN TO ERRRPTO.                                                            43
    44                                                                                                            44
    45 DATA DIVISION.                                                                                             45


Viewing all articles
Browse latest Browse all 191

Latest Images

Trending Articles



Latest Images

<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>