Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4356

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 4356

Trending Articles



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