Data Build Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

111

112

113

114

115

116

117

118

119

120

Customizing SQL-LOAD Output

Customizing Data Build

6–24 099331 Tandem Computers Incorporated

12. Modify USERLIB as follows:

?SECTION U-WS

01 CTR PIC 9(4) COMP VALUE 0.

01 NULL-VAL-REPLACE-SETUP.

02 FILLER PIC 9(4) COMP VALUE 514.

01 NULL-VALUE-REPLACE-25 REDEFINES NULL-VAL-REPLACE-SETUP PIC X(25).

?SECTION U-OUT-DEMO01-DEM1-NAME

ADD 1 TO CTR

EVALUATE CTR

WHEN 1 PERFORM RTN1

WHEN 2 PERFORM RTN2

WHEN 3 PERFORM RTN3

WHEN 4 PERFORM RTN4

WHEN OTHER PERFORM RTN-OTHER

END-EVALUATE.

?SECTION U-USER-ROUTINES

* THE FOLLOWING PARAGRAPHS ARE PERFORMED BY USER EXIT CODE.

RTN1.

MOVE 3 TO LEN OF DEM1-NAME OF OUT-DEMO01

MOVE DEM1-NAME OF IN-DEMO01 TO VAL OF DEM1-NAME OF OUT-DEMO01.

RTN2.

MOVE 0 TO LEN OF DEM1-NAME OF OUT-DEMO01

MOVE DEM1-NAME OF IN-DEMO01 TO VAL OF DEM1-NAME OF OUT-DEMO01.

RTN3.

MOVE 0 TO LEN OF DEM1-NAME OF OUT-DEMO01

MOVE NULL-VALUE-REPLACE-25 TO VAL OF DEM1-NAME OF OUT-DEMO01.

RTN4.

MOVE 25 TO LEN OF DEM1-NAME OF OUT-DEMO01

MOVE NULL-VALUE-REPLACE-25 TO VAL OF DEM1-NAME OF OUT-DEMO01.

RTN-OTHER.

MOVE 25 TO LEN OF DEM1-NAME OF OUT-DEMO01

MOVE DEM1-NAME OF IN-DEMO01 TO VAL OF DEM1-NAME OF OUT-DEMO01.

13. OBEY XRUN.

14. Press F4 and check the spooler (F12).

15. Press F5 and check the spooler (F12)

16. Do this step and look at the spooler results at #DEM1MOD. Look at column

DEM1_NAME. The third and fourth rows should contain "?", signifying a null

value.

17. You can play with the code and add additional conditions. Note that for SQL-

INSERT, handling nulls for a VARCHAR column is the same as for any column.