E ALPHA 36 36 1
E TBLC 256 1
*
C *ENTRY PLIST
C PARM PARAM 256 A MODIFIER
C PARM LG 155 LG PARAM
C PARM PRIM 1 1 ERE LETTRE
C PARM DER 1 DER LETTRE
C PARM DEBUT 155 DEBUT MODIF
*
C PL PLIST
C PARM NB 100
C PARM MINI 155
C PARM MAXI 155
*
C MOVEAPARAM TBLC
*
C Z-ADD1 Y 40
C PRIM LOKUPALPHA,Y 90
C *IN90 IFEQ '0'
C Z-ADD1 MINI
C ELSE
C Z-ADDY MINI
C END
*
C Z-ADD1 Y 40
C DER LOKUPALPHA,Y 90
C *IN90 IFEQ '0'
C Y ORLT MINI
C Z-ADD36 MAXI
C ELSE
C Z-ADDY MAXI
C END
*
C LG IFLE 0
C LG ORGT 256
C Z-ADD256 L 30
C ELSE
C Z-ADDLG L
C END
*
C DEBUT IFLE 0
C DEBUT ORGT LG
C Z-ADD1 D 30
|
| 
| 