The following COBOL II code fragment shows one way to code an RSP to handle keyword variables.
LINKAGE SECTION. 01 DFHCOMMAREA. COPY SPAREAC. ****************************************************************** * LINKAGE TO CALLING PROGRAM * ****************************************************************** 01 KEYWORD-VTABLE. 10 VTABLE-SIZE PIC S9(8) COMP. 10 VTABLE-ENTRY OCCURS 0 TO 50 TIMES DEPENDING ON VTABLE-SIZE INDEXED BY VTABLE-INDEX. 15 VTABLE-NAME USAGE IS POINTER. 15 VTABLE-VALUE USAGE IS POINTER. 15 VTABLE-NAME-LENGTH PIC S9(4) COMP. 15 VTABLE-VALUE-LENGTH PIC S9(4) COMP. 01 TABLE-NAME PIC X(15). 01 TABLE-VALUE PIC X(28). 01 WS-INPUT-REC. 10 WS-INPUT-DATA PIC X(45). 10 WS-INPUT-REST PIC X(10). : : : ****************************************************************** * MAKE SURE AT LEAST ONE KEYWORD WAS SENT ALONG WITH PROGRAM * ****************************************************************** MOVE 0 TO WS-INCRINUM. IF SPVARTAB = NULL PERFORM 700-LOAD-KEYWORD-ERROR THRU 700-EXIT GO TO 510-EXIT. IF VTABLE-SIZE NOT > 0 PERFORM 700-LOAD-KEYWORD-ERROR THRU 700-EXIT GO TO 510-EXIT. SET ADDRESS OF KEYWORD-VTABLE TO SPVARTAB.
| Copyright © 2005. Sybase Inc. All rights reserved. |
|
|
