j63

• title page
• table of contents
• revision log
• purpose (of document)
• background
• scope: in and out
• business requirements(sources, additions)
• proposed solution
• component list
• testing considerations
• implementation

• title page
• table of contents
• revision log
• purpose (of document)
• background
• business requirements(sources, additions)
• reference documents
• objectives
• scope: in and out
• Test Strategy
• Test Scenarios

• Create Prod CRQ
• update eGCTM table
• Create Endevor Package
• Submit package for approvals
• Implement package
• Verify implementation
• Client verification
• Announce success/unsuccessful implementation

SUM(ALL | DISTINCT expression)

• SELECT     SUM(c1) FROM     sum_demo;
• SELECT     SUM(DISTINCT c1) total_distinctFROM     sum_demo;

• SELECT    author_id,    first_name,    last_name
• FROM    authors
• WHERE     UPPER(last_name) = 'ANDERSON';

• SELECT CONCAT(FIRSTNME, LASTNAME)
• FROM DSN8A10.EMP;

sort field=(1,3,CH,A,9,3,CH,A)

• sort field=(1,3,CH,A)
• SUM FIELDS=NONE

• SORT FIELDS=COPY
• FIELDS - The input data set is copied to the output data set
• without sorting or merging.

• collect information
• select pertinent parts
• analyze information
• observing
• research
• develop solutions
• communication

• system testing
• iteration testing
• acceptance testing
• regression testing
• volume testing
• performance testing
• post implementation testing
• user acceptance testing re-testing

boundary testing

• SELECT WORKDEPT, AVG(SALARY)
• FROM DSN8A10.EMP
• GROUP BY WORKDEPT
• ORDER BY 2;

• SELECT SUM(column_name)
• FROM table_name
• WHERE CONDITION
• GROUP BY column_name
• HAVING (arithematic function condition);

• SELECT DISTINCT column1, column2....columnN
• FROM table_name;

• SELECT column1, column2....columnN
• FROM table_name
• WHERE column_name BETWEEN val-1 AND val-2;

• SELECT column1, column2....columnN
• FROM table_name
• WHERE column_name IN (val-1, val-2,...val-N);

• CREATE UNIQUE INDEX index_name
• ON table_name ( column1, column2,...columnN);

• UPDATE table_name
• SET column1 = value1, column2 = value2....columnN=valueN
• [ WHERE CONDITION ];

• INSERT INTO table_name( column1, column2....columnN)
• VALUES ( value1, value2....valueN);

• DELETE FROM table_name
• WHERE {CONDITION};

• INSERT INTO first_table_name [(column1, column2, ... columnN)]
• SELECT column1, column2, ...columnN
• FROM second_table_name
• [WHERE condition];

• SELECT column1, column2....columnN
• FROM table_name
• WHERE CONDITION
• ORDER BY column_name {ASC|DESC};

• //IDCAMS1 EXEC PGM=IDCAMS
• //SYSPRINT  DD SYSOUT=*
• //PRINTDD   DD SYSOUT=*
• //SYSIN     DD *
•   DELETE  (QUALVSAM.QUAL1.QUAL2) -
•   CLUSTER PURGE NOERASE
• /*
• //

• //IDCAMS1 EXEC PGM=IDCAMS
• //SYSPRINT DD SYSOUT=*
• //PRINTDD DD SYSOUT=*
• //SYSIN DD *
• DEFINE CLUSTER -
• (NAME (qualVSAM.qual1.qual2.TEST)-
• VOL(VSAMT3) -
• CYL(1,5) -
• MODEL(qualVSAM.qual1.qual2.model))-
• DATA (NAME (qualVSAM.qual1.qual2.DATA))
• /*
• //*

• //STEP02 EXEC PGM=IDCAMS
• //INTAPE DD DSN=qualVSAM.qual1.qual2,DISP=SHR
• //OUTFSM DD DSN=qualVSAM.qual1.qual2.TEST,DISP=OLD
• //SYSIN DD *
•    REPRO INFILE(INTAPE)
•    OUTFILE(OUTFSM)
• //SYSPRINT DD SYSOUT=*
• //

• ENVIRONMENT DIVISION.
• INPUT-OUTPUT SECTION.
• FILE-CONTROL.
•   SELECT F--IN
•      ASSIGN TO FSMIN
•      ORGANIZATION IS INDEXED
•      ACCESS IS DYNAMIC
•    RECORD KEY IS F-KEY
•    FILE STATUS IS W-STATUS.

• FD  F-IN
•   RECORD CONTAINS 269 CHARACTERS
•   DATA RECORD IS F-REC.
• 01  F-REC.
•  05 FILLER  PIC X(01).
•  05 F-KEY.
•   10 F-key1 PIC  X(04).
•   10 F-key2X PIC  X(2).
•   10 F-key29 REDEFINES F-key2X PIC 9(02).
• 05 FILLER  PIC X(20).

• Move values to key before read
• READ F-IN INTO ws-RCRD
•  INVALID KEY
•    MOVE 'Y' TO W-INVALID-key-SW
• END-READ.

• A binary number with a PICTURE description of
• four or fewer decimal digits occupies 2 bytes;
• five to nine decimal digits, 4 bytes;
• and 10 to 18 decimal digits, 8 bytes.

• READ file-name RECORD INTO ws-rec
•   AT END
•     do stuff
•   NOT AT END
•    do other stuff
• END-READ

• READ file-name RECORD INTO ws-rec
•   KEY IS ws-keyName
•   INVALID KEY
•      do stuff
•   NOT INVALID KEY
•      do other stuff
• END-READ

• INPUT-OUTPUT SECTION.
• FILE-CONTROL.
• SELECT file-name
•  ASSIGN TO dd-name-jcl
•   ORGANIZATION IS SEQUENTIAL

• SELECT fileName
•   ASSIGN TO ddname
•   ORGANIZATION IS INDEXED
•   ACCESS IS DYNAMIC
•   RECORD KEY IS ws-key
•   FILE STATUS IS ws-fileStatus.

• INPUT-OUTPUT SECTION.
• FILE-CONTROL.
• SELECT file-name
•   ASSIGN TO dd-name-jcl
•   ORGANIZATION IS INDEXED
•   RECORD KEY IS primary-key
•   ALTERNATE RECORD KEY IS rec-key

Following are the called program requirements −

Linkage section must be defined in the called program. It consists of data elements passed in the program. The data items should not have Value clause. PIC clause must be compatible with the variables passed through the calling program.

Procedure division using has a list of variables passed from the calling program and the order must be same as mentioned in the Call verb.

Exit program statement is used in the called program to transfer the control back. It must be the last statement in the called program.

CALL sub-prog-name USING variable-1, variable-2.

• 01 WS-CONTROL-RECORD.
•   05 WS-PROGRAM-ID  PIC X(8).
•   05 WS-PROCESS-DATE PIC X(8).
•   05 WS-CYCLE-NO PIC 9(4).
•   05 WS-FILE-CONTROL OCCURS 10 TIMES.
•     10 WS-DSN PIC X(8).
•     10 WS-RECORD-COUNT PIC S9(13).

name-EXCEPTION-HANDLING SECTION.   USE AFTER EXCEPTION PROCEDURE ON fileName. name-STATUS-CODE-CHECK.   do stuff   PERFORM abendPara THRU. nn-EXIT.   EXIT.

• LINKAGE SECTION.
• 01  L01-PARMS.
• 05  FILLER PIC S9(04) COMP.
• 05  L01-var.