Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

IPDS

Status
Not open for further replies.

razlandwife

Programmer
Aug 21, 2006
4
0
0
US
I have inherited a Cobol program that is writing barcoded labels in something I have never seen to an IPDS printer. Here is an example:
01 PP1-LABEL-START2.
03 FILLER PIC X(15)
VALUE "331100000140400".
03 FILLER PIC X(23)
VALUE "XXXXXXXXXXXXXXXXXXXXXXX".
03 FILLER PIC X VALUE X"0D".
03 FILLER PIC X(15)
VALUE "331100000330400".
03 FILLER PIC X(14)
VALUE "XXXXXXXXXXXXXX".
03 FILLER PIC X VALUE X"0D".
03 FILLER PIC X(20)
VALUE "3311000004904009999/".
03 FILLER PIC X VALUE X"0D".
03 FILLER PIC X(22)
VALUE "331100000490358XXXXXXX".

Does anyone know how to interpret this? Thanks
 
PP1-LABEL-START2 (on level 01) is a data structure which consists of 9 components (on level 03).
All are character fields (PICTURE X(n)). First of the components is 15 characters long and has value "331100000140400",... third is one character long and contains hexadecimal "0D", ... etc.
What's unclear ?
 
I see that I didn't provide enough information - sorry. I am attaching all of the lines that produce the label. Thanks
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top