GUIDELINE
Review Date 08/2002
1.0 SUBJECT: Availability of INTERTEST Support for VS COBOL II Compiler under CICS 3.3
2.0 DISTRIBUTION: Current Users
3.0 FROM: Bruce Roberts, Director of DISC
4.0 PURPOSE: To communicate the availability of the procedures for using INTERTEST with VS COBOL II and to provide the rules that govern their usage.
5.0 BACKGROUND: INTERTEST is a productivity aid to be used in the development of COBOL programs that will run under the control of CICS.
6.0 PROCEDURE: INTERTEST should be used by programmers who are developing COBOL programs that will run under the control of CICS. Agencies who now use INTERTEST report very substantial productivity gains.
6.1 Procedures have been developed to facilitate the use of the VS COBOL II compiler with CICS Command-level programs. The two procedures can be executed as follows:
1) **** VS COBOL II CICS COMMAND LEVEL ****
//STEP1 EXEC CIC3LCB2,MEMBER=pdsname,AGN=agency
2) **** VS COBOL II CICS COMMAND LEVEL with INTERTEST ****
//STEP1 EXEC CIC3LCS2,MEMBER=pdsname,AGN=agency
//POSTCOB.CARDS DD *
pdsname,LISTER=ALL
/*
//
Note: Agency as used above refers to agency mnemonic such as: RV, DT, SW, DA, etc., as defined in Standard 4401.
6.2 To compile programs without INTERTEST symbolic use the CIC3LCB2 procedure. The Execution Diagnostic Facility (EDF) is still available and now with VS COBOL II, it is easier to find data areas in program storage. While at a breakpoint in EDF, the PF5 key gives you a display of WORKING-STORAGE, which includes displacements from the beginning of WORKING-STORAGE. With the compiler option MAP (which is a default), you can locate any item in the display. In the compiler map, find the BLW number (B) and the displacement (D) of the item. The displacement from the beginning of WORKING-STORAGE is: (B * X'1000') + D. Additional information on EDF can be found in the "CICS Application Programmer's Reference Manual (Command Level)".
6.3 If you compile your program with the compiler option FDUMP, a formatted dump is written to temporary storage when your transaction abends. Also, execution-time messages are written to this temporary storage queue. You can view this queue by using the transaction CEBR and entering the queue name CEBRxxxx, where xxxx is the termid associated with the transaction. You will be responsible for purging your queues when you are finished, to prevent temporary storage from filling up.
6.4 Care should be taken when compiling your programs using the compiler option FDUMP. This option could possibly cause your load module to quadruple in size. Therefore, if you use this option, it will be necessary to recompile your program WITHOUT FDUMP before requesting your program to be put into production.
6.5 The LANGLVL compiler option does not exist in VS COBOL II.
7.0 HISTORY: This publication was originally issued as Guideline #4611.00 Dated 01/20/1995. The Guideline was canceled and replaced by Standard 4421.00, dated 06/26/1986. The Standard was repleced by Guideline #4611.01, 9/10/2002.
8.0 CONTACT PERSON: System Software Manager, Bureau of Information Systems,785-296-3343