| 
E SQL 2000 1 E LST 752 1 E TBIN 376 2 E TBN 5 1 E NAM 10 1 E TYP 8 1 E NULL 1 2 21 IPARAM1 DS I 1 752 LST I 1 752 TBIN IPARAM2 DS I 12000 SQL IELEM DS I B 1 20NBE I 3 12 NAME I 3 12 NAM I 13 20 TYPE I 13 20 TYP I P 21 230LG I P 24 240NBD I 25 28 DFT INUMC DS I 1 50NUM I 1 5 TBN INUMB DS I B 1 20BIN C *ENTRY PLIST C PARM PARAM1 C PARM PARAM2 C Z-ADD1 D 50 C MOVE *BLANK PARAM2 C MOVE TBIN,1 NUMB C BIN ADD 1 X 30 * TRAITEMENT D'UNE ZONE C 2 DO X Y 30 C MOVE TBIN,Y NUMB C BIN ADD 1 Z 50 C MOVEALST,Z ELEM C MOVEANAME SQL,D C Z-ADD1 W C ' ' LOKUPNAM,W 02 C ADD W D C MOVEATYPE SQL,D C Z-ADD1 W |
|
C ' ' LOKUPTYP,W 02
C SUB 1 W
C ADD W D
C MOVE '(' SQL,D
C ADD 1 D
C Z-ADDLG NUM
C MOVE '0' *IN,01
C DO 5 W 30
C *IN,01 IFEQ '1'
C TBN,W ORNE '0'
C MOVE TBN,W SQL,D
C MOVE '1' *IN,01
C ADD 1 D
C END
C END
C TYPE IFNE 'CHAR'
C MOVEA', ' SQL,D
C ADD 2 D
C Z-ADDNBD NUM
C MOVE TBN,5 SQL,D
C ADD 1 D
C END
C MOVE ')' SQL,D
C ADD 2 D
C DFT IFEQ '*NO'
C MOVEANULL,2 SQL,D
C ADD 8 D
C ELSE
C MOVEANULL,1 SQL,D
C ADD 21 D
C END
C MOVEA', ' SQL,D
C ADD 2 D
C MOVEA*BLANK SQL,D
* FIN TRAITEMENT D'UNE ZONE (BOUCLE DO)
C END
C SUB 2 D
C MOVE ' ' SQL,D
C MOVE '1' *INLR
C RETRN
**
NOT NULL WITH DEFAULT
NOT NULL
|
