PPT Slide

* of 42

Display Output Results

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

/* Reopen the sequential file and read data back in */

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

/* */

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

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

CALL CLEANUP /* cleanup and return */

END /* endif open<ɬ */

/* */

DO WHILE RXVSAM("READNEXT FILE("TEMPDD")")=0 /* read the file */

SAY 'DATABASE='CB_DATABASE_NAME, /* */

'TSNAME='CB_TS_NAME, /* */

'NAME='CB_NAME_NAME /* */

END /* end do while */

/* */

CALL "RXVSAM" "CLOSE FILE("TEMPDD")" /* close the file */

/* */

CALL CLEANUP /* Clean up and exit */

/* */

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

/* Clean up and exit */

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

CLEANUP: /* */

/* */

IF ADDRESS()='TSO' THEN /* if tso - then */

"FREE FI("TEMPDD")" /* free temp file */

/* */

IF SQLCODE<ɬ THEN DO /* */

SAY 'RXSQL failed RC='SQLCODE /* */

SAY SQLMSG /* */

END /* */

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

/* Disconnect from DB2 */

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

/* */

CALL "RXSQL" "DISCONNECT" /* Disconnect from DB2 */

/* */

EXIT 0 /* */

/* */

RETURN