Calling G1CPLKC - Code-1_Plus - 5.0

The G1CPDSM sample program calls the G1CPLKC callable routine for your platform. The following example is from G1CPDSM. For the most current version, please refer to G1CPDSM included with your installation in the sample library.

01 WS-C1P-DBLOOK-PGM          PIC X(8) VALUE 'G1CPLKC'.

01 WS-MISC-LENGTHS.05 WS-LENGTH-DBLOOK-AREAS     PIC S9(04) COMP.

      .

01 WS-C1P-DBLOOK-AREAS COPY LOOKREQ.   .

MOVE LENGTH OF WS-C1P-DBLOOK-AREAS TO WS-LENGTH-DBLOOK-AREAS.EXEC CICS LINKPROGRAM (WS-C1P-DBLOOK-PGM)COMMAREA (WS-C1P-DBLOOK-AREAS)   LENGTH (WS-LENGTH-DBLOOK-AREAS)END-EXEC.

To ensure the integrity of the database to be passed, initialize the following areas in the calling program, along with any other fields accessing data to be passed:

• Move spaces to G1CPLK-USER-REQUEST-AREA

• Move LOW-VALUES to G1CPLK-MAX-RETURN-CONTROL.