MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 2 programsACSPFLGI

0W · 1R · 1?

COACTUPC

conditionIF ACSPFLGI OF CACTUPAI = '*' OR ACSPFLGI OF CACTUPAI = SPACES
1100-RECEIVE-MAP
COACTUPC.cbl:1419–1420
readMOVE ACSPFLGI OF CACTUPAI TO ACUP-NEW-CUST-PRI-HOLDER-IND
  1. NOT (ACSPFLGI OF CACTUPAI = '*' OR ACSPFLGI OF CACTUPAI = SPACES)
1100-RECEIVE-MAP
COACTUPC.cbl:1423
Defined
02 ACSPFLGI PIC X(1)
WORKING-STORAGE · in CACTUPAI · offset 898, 1 bytes
COACTUP.CPY:312 via COACTUPC.cbl:623
Program
COACTUPC
0W · 0R · 0?

COACTVWC

Declared but never referenced.

Defined
02 ACSPFLGI PIC X(1)
WORKING-STORAGE · in CACTVWAI · offset 817, 1 bytes
COACTVW.CPY:228 via COACTVWC.cbl:229
Program
COACTVWC