Member Avatar for Alfarata
Alfarata 0 Newbie Poster

I believe this is a form of COBOL used in a Realia complied program. I need to know how this section of code works.

01 TEST-LOCK-TABLE.
05 FILLER PIC X(12) VALUE '03 00000 EA '.
05 FILLER PIC X(50) VALUE
'08-0001 LOCK/TLOCK,STMPD,H25,LH,W-RIVET'.
05 FILLER PIC X(50) VALUE
'08-0002 LOCK/TLOCK,STMPD,H87,RH,W-RIVET'.
05 FILLER PIC X(50) VALUE
'06-0000 LOCK/TLOCK,STMPD,H65,AL,W-RIVET'.

01 FILLER REDEFINES TEST-LOCK-TABLE.
05 B-WJ-NR-OCCURS PIC 99.
05 FILLER PIC X.
05 B-WJ-QTY PIC 999V99.
05 FILLER PIC X.
05 B-WJ-UOM PIC XX.
05 FILLER PIC X.
05 FILLER OCCURS 03 TIMES.
10 B-WJ-PN PIC X(11).
10 FILLER PIC X.
10 B-WJ-DES PIC X(38).

  • 1 Contributor
  • 0 Replies
  • 86 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.