Redefined Superfield based on PE fields

22:25:04 Program STVPE1 Library XS0001 (Work) User S0001 2015-11-20
0010 DEFINE DATA LOCAL
0020 1 EMPLOYEES VIEW OF EMPLOYEES
0030 2 PERSONNEL-ID /* (N8)
0040 2 NAME /* (A20)
0050 2 INCOME (1:3)
0060 3 CURR-CODE /* (A3)
0070 3 SALARY /* (P9) actually (P17) as someone defined incorrectly
0080 2 CURRENCY-SALARY (1:3) /* (A12)
0090 2 REDEFINE CURRENCY-SALARY
0100 3 #CURR-SAL (1:3)
0110 4 #CURR-CODE (A3)
0120 4 #EXTRA (A4)
0130 4 #SALARY (P9)
0140 END-DEFINE
0150 *
0160 READ EMPLOYEES
0170 DISPLAY PERSONNEL-ID NAME (AL=12)
0180 ‘CURR/CODE’ CURR-CODE (1:3) SALARY (1:3)
0190 CURRENCY-SALARY (1:3)(EM=H(12))
0200 ‘#CC#CURR-CODE (1:3)
0210 ‘#sa#SALARY (1:3)
0220 END
***** End of List *****

Hi Gene;

I am assuming you are on PC Natural.

I started commenting out variables. The variable causing the problem is currency-salary.

If you look at the ddm, the adabas two character name is S3.

Now look at the fdt in your Adabas. In particular, look at the PH H1 S1 S2 S3 lines. In mine, they are a “mess”. No level numbers, and no format for S1.

Will play more later.