PPT Slide

* of 42

Prepare to Process the Data.

/* ***************************************************************** */

/* Open the output sequential file */

/* ***************************************************************** */

/* */

CBNAME='MXS.P390.EXECS(TEMPCB)' /* put your copybook here */

/* */

IF RXVSAM("OPEN FILE("TEMPDD") COPYBOOK("CBNAME") LOAD")<ɬ THEN DO

SAY 'RC='VSAMCODE 'MSG='VSAMMSG /* report the error */

CALL CLEANUP /* cleanup and return */

END /* endif open<ɬ */

/* */

/* ***************************************************************** */

/* Connect to a DB2 subsystem */

/* ***************************************************************** */

/* */

CALL "RXSQL" "CONNECT" SUBSYS /* */

IF SQLCODE<ɬ THEN DO /* */

SAY 'RXSQL CONNECT Failed' SUBSYS /* */

EXIT 8 /* */

END /* */

/* */