enrico-sorichetti wrote:the only thing missing is the selec for the code' d data
Hope its ok now.
Code: Select all
testing
enrico-sorichetti wrote:the only thing missing is the selec for the code' d data
Code: Select all
testing
Code: Select all
again testing...
Code: Select all
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
/
WORKING-STORAGE SECTION.
01. *> NO NEED FOR "FILLER"
05 PIC X(28) VALUE 'WORKING STORAGE FOR PROGRAM '.
05 WS-PGM-ID-BEG PIC X(8).
05 PIC X(12) VALUE ' BEGINS HERE'.
05 WS-LOAD-MODULE-EYE-CATCHER.
10 PIC X(8) VALUE 'CHGD BY '.
10 PIC X(24) VALUE
'XXXXX XXXXXX -- EXT XXXX'.