Pro*COBOL 8.1.5 now allows the call of a subroutine as the action in the WHENEVER statement. The new syntax is: EXEC SQL WHENEVER <condition> DO CALL <subprogram> [USING id1 id2 ... idn] END-EXEC. This new functionality is very useful when writing nested programs. See Also: WHENEVER...
10 FILLER REDEFINES WS-ORD-DATE-FMT. 15 WS-ORD-DATE-YY PIC 9(02). Ex: If the value of WS-ORD-DATE is '20070914' Then If you want to display the Century Display WS-ORD-DATE-CC. It display's 20 Display WS-ORD-DATE-YY . It display's 07 Like that it will be useful...
Each of their contained fields are laid out at offset 0 with respect to the union field position in memory. They are for example used to represent the COBOL "REDEFINES" construct (the first Union children being the redefined data item, the second children being its first redefinition, etc.)...
Copybook REDEFINEs now attempt to match the field name followed by (1) if the original redefined field name is not found. Mainframe filter now outputs empty fields for any OCCURS DEPENDING ON iterations that were not used - ensuring that the output file alignment is retained. Enhanced the ...