Make certain that linkage fields being used in the .ccp program are currently addressed.
For example, in program tign350.ccp, paragraph C000-CURSOR-TO-SCREEN do not do a check on the value of NOT-TO-EXCEED-CNMST.
Try this code and watch the strange behaviour.
IF NOT-TO-EXCEED-CNMST = 'N' MOVE 'PN3500' TO SAMPLE-PROGRAM-MSG ELSE MOVE 'PN3500' TO SAMPLE-PROGRAM-MSG END-IF
Did it again in January 2012
Make certain that linkage fields being used in the .ccp program are currently addressed.
For example, in program tign350.ccp, paragraph C000-CURSOR-TO-SCREEN do not do a check on the value of NOT-TO-EXCEED-CNMST.
Try this code and watch the strange behaviour.
IF NOT-TO-EXCEED-CNMST = 'N'
MOVE 'PN3500' TO SAMPLE-PROGRAM-MSG
ELSE
MOVE 'PN3500' TO SAMPLE-PROGRAM-MSG
END-IF