Quantcast
Channel: Visual COBOL
Viewing all articles
Browse latest Browse all 5819

Forum Post: RE: Level 78 Hex Value Usage

$
0
0
Chris, Please see below: SELECT MPS-QBEXPORT ASSIGN TO DISK, "C:/MPSDATA/MPS-QB-EXPORT.TXT"       ORGANIZATION IS LINE SEQUENTIAL       FILE STATUS IS FSTAT. . . . FD  MPS-QBEXPORT LABEL RECORDS ARE STANDARD. 01  QBEXPORT-REC          pic X(1024). . . . 78 TAB               value x"09". . . . move spaces to QBEXPORT-REC. string "NAME" delimited by size       TAB delimited by size       "DOCNUM" delimited by SIZE       TAB delimited by size        "SHIPDATE" delimited by size       TAB delimited by size        "SADDR1" delimited by size       TAB delimited by size        "INVITEM" delimited by size       TAB delimited by size       "PRICE" delimited by size       TAB delimited by size       "QNTY" delimited by size       TAB delimited by size       "TAXABLE" delimited by size       TAB delimited by size       "PRINT" delimited by size       TAB delimited by size       into QBEXPORT-REC. write QBEXPORT-REC. Results: 4E 41 4D 45 00 09 44 4F 43 4E 55 4D 00 09 53 48 49 50 44 41 54 45 00 09 53 41 44 44 52 31 00 09 49 4E 56 49 54 45 4D 00 09 50 52 49 43 45 00 09 51 4E 54 59 00 09 54 41 58 41 42 4C 45 00 09 50 52 49 4E 54 00 09 0D 0A Chris... Note the nulls – hope this helps Allen

Viewing all articles
Browse latest Browse all 5819

Trending Articles



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