The jobs are running Easytrieve V11.6
* ALL SPUFI CARDS WITH NUMERIC PRIORITY ARE TAKEN
CASE SPUFI_CARD_POS_13
WHEN '0' THRU '9'
IF 1ST_TIME_ONLY = 'Y'
MOVE 'N' TO 1ST_TIME_ONLY
%LENGTHO2 RECORD DB2DATA FIELD PROJ_NUM
MACRO 0 RECORD ' ' FIELD ' '
*
* EZTRIEVE MACRO TO GET ACTUAL LENGTH OF A RECORD FIELD
* (MACRO LENGTHOF GOT ACTUAL LENGTH OF A WORKING-STORAGE FIELD)
* INVOCATION: %LENGTHOF RECORD &RECORD. FIELD &FIELD.
* AFTER RUNNING THIS MACRO, REFERENCE LENGTH OF FIELD AS FOLLOWS:
* &FIELD._LEN_OF:LENGTH
*
DEFINE PROJ_NUM_LEN_OF W 50 A VARYING
MOVE DB2DATA:PROJ_NUM TO PROJ_NUM_LEN_OF
* DISPLAY &FIELD._LEN_OF:LENGTH
MEND
$ statement not processed
$ end of statement expected
END-IF
PERFORM 0_SUPPRESS_INPUT_PROJ_NUM
MOVE LIKE DB2DATA TO DB2DATA_OUT
PUT DB2DATA_OUT
PRINT FREQ_REPORT_1D
PRINT FREQ_REPORT_2D
OTHERWISE
GOTO JOB
END-CASE
Release : 11.6
Component : EASYTRIEVE REPORT GEN
Problem appears to be introduced by PTF LU03002 and is resolved by LU06144