> > + Program PFDIC Lib FUNDATEC
All ....+....1....+....2....+....3....+....4....+....5....+.
0010 DEFINE DATA LOCAL
0020 1 #REG007 (A34) /* WORK FILE 1
0030 1 REDEFINE #REG007
0040 2 FILLER1 (A02)
0050 2 #DDM007 (A32)
0060 *
X 0070 1 #REG005 (A34) /* WORK FILE 2
0080 1 REDEFINE #REG005
0090 2 FILLER2 (A02)
0100 2 #DDM005 (A32)
0110 END-DEFINE
Y 0120 *
0130 READ WORK FILE 1 #REG007
0140 IF #DDM007 NE 'VIEW-FUNDATEC'
0150 MOVE #DDM007 TO #DDM005
0160 DISPLAY #DDM007 #DDM005
0170 END-IF
0180 END-WORK
0190 END
0200
....+....1....+....2....+....3....+....4....+....5.. S 19 L 1