SYNCPOINT

SYNCPOINT divides a long-running task into smaller units of work. 

It specifies that all  the changes made by the task since its last syncpoint are to be committed. 

SYNCPOINT ROLLBACK

It specifies that all the changes made to recoverable resources by the task since its last syncpoint are to be backed out.

In order to reset all CICS recoverable resources because the transaction is not finished, we back out the current unit of work (UOW) by performing the following command

EXEC CICS SYNCPOINT ROLLBACK
END-EXEC

WHENEVER Clause

WHENEVER specifies the host language statement to be executed when an exception condition occurs.

Three types of WHENEVER :-

1.WHENEVER NOT FOUND

Example:

go to the label ENDDATA for any statement does not return

EXEC SQL
     WHENEVER NOT FOUND
        GO TO ENDDATA
END-EXEC.

NOT FOUND => Identifies any condition that results in an SQLCODE of +100.

2.WHENEVER SQLERROR

Go to label handler for any statement that produces an error

EXEC SQL
     WHENEVER SQLERROR
     GO TO HANDLER
END-EXEC.

SQLERROR => Identifies any condition that results in negative SQLCODE.

3.WHENEVER SQLWARNING 

Continue the processing when any statement produces a warning

EXEC SQL
     WHENEVER SQLWARNING
     CONTINUE
END-EXEC.

SQLWARNING => Identifies any condition that results in warning condition (SQLWARN0 is W) or that results in Positive SQLCODE other than +100.

IEBCOMPR Utility

IEBCOMPR utility is used to

• Compare two PS (Physical Sequential) Datasets
• Compare two PDS (Partitioned Data Set)/PDSE (Partitioned Data Set Extended)

If we want to compare two PS files using this utility, both must have same record length. 

Ex. Comparing two PS files

//STEP1  EXEC PGM=IEBCOMPR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PSFILE1,DISP=SHR
//SYSUT2 DD DSN=PSFILE2,DISP=SHR
//SYSIN   DD *
  COMPARE TYPORG=PS
/*

The two PS files which are to be compared must be given in SYSUT1 and SYSUT2

COMPARE TYPORG=PS specifies that the input data sets are PS files.

If they are PDS/PDSE files, then we should give COMPARE TYPORG=PO

Ex. Comparing two PDS files

//STEP1  EXEC PGM=IEBCOMPR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PDSFILE1,DISP=SHR
//SYSUT2 DD DSN=PDSFILE2,DISP=SHR
//SYSIN   DD *
  COMPARE TYPORG=PO
/*

MVS Abbrevations

MVS - Multiple Virtual Storage, is an operating system from IBM that runs on system/370 and system/390 IBM mainframe computers.

TSO - Time Sharing Option, lets remote terminal users invoke MVS facilities interactively.

ISPF - Interactive System Productivity Facility, runs a part of TSO and utilizes full screen capability of 3270 terminals.

PDF - Program Development Facility, part of the ISPF.

RACF - Resource Access Control Facility, identifies both users and resources.

SMF - System Management Facility, facilitates billing and monitoring.
           Ex. CPU time used, amount of DASD etc..

SMS - Storage Management Subsystem, automates data management services of             MVS.

JES - Job Entry Subsystem, provides job management facilities on MVS.

DASD - Direct Access Storage Device