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...
We have an old Cobol program that we are rewriting in RPG because the user gets stuck quite often and we have to "kill" her session. This causes us to have to use strdfu and go in to delete the records written to one of our physical files. This file is a work file that is just used to hold...
I have a file defined as this:
FAPY120WK IF F 365 DISK
And I have the definition coded like this:
D/COPY QRPGLESRC,APY120WCB
*
IAPY120WK AA
What is the statement I need to use to get the data into the APY120WCB copybook after the read statement...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.