CA Earl Systems Programmer Guide documentation update: COBOL II or COBOL/LE
search cancel

CA Earl Systems Programmer Guide documentation update: COBOL II or COBOL/LE

book

Article ID: 28475

calendar_today

Updated On:

Products

CIS COMMON SERVICES FOR Z/OS COMMON PRODUCT SERVICES COMPONENT Common Services CHORUS SOFTWARE MANAGER Earl

Issue/Introduction

Documentation update to the CA-Earl Systems Programmer Guide:

In section 2.4 change all occurrences of 'COBOL II' to 'COBOL II or COBOL/LE'.

Change both the section title and the section contents.

In addition there is a change to the compile COBSETUP process. Example provided.

Environment

Release: EARL..00200-6.1-Earl
Component:

Resolution

Example of new COBSETUP for Cobol changes.

 

COBSETUP CEEENTRY PPA=MAINPPA,AUTO=WORKSIZE,MAIN=YES                           
         USING WORKAREA,R13                                                    
         L     R15,4(R13)         * POINT AT MY CALLER'S SAVE AREA             
         L     R1,24(R15)         * AND PICK UP THE PARM LIST POINTER.         
         LR    R2,R12             * SAVE R12                                   
         LR    R3,R13             * SAVE R13                                   
         SPACE 1                                                               
         L     R15,=V(COBVSAM) <== PUT YOUR COBOL PROGRAM NAME HERE!           
         SPACE 1                                                                
         BALR  R14,R15            * GO OFF TO THE COBOL PROGRAM.               
         LR    R12,R2             * RESTORE R12                                
         LR    R13,R3             * RESTORE R13                                
         CEETERM RC=(15)          * TERMINATE LE AND RETURN TO CALLER          
         SPACE 2                                                               
         LTORG                                                                  
MAINPPA  CEEPPA                   CONSTANTS DESCIBING THE CODE BLOCK           
* ====================================================================         
*        THE WORKAREA AND DSA                                                   
* ====================================================================         
WORKAREA DSECT                                                                 
         ORG    *+CEEDSASZ        LEAVE SPACE FOR THE DSA FIXED PART            
         DS     0D                                                             
WORKSIZE EQU    *-WORKAREA                                                     
         CEEDSA                   MAPPING OF THE DYNAMIC SAVE AREA             
         CEECAA                   MAPPING OF THE COMMON ANCHOR AREA            
*                                                                              
R1       EQU   1                                                               
R2       EQU   2                                                               
R3       EQU   3                                                               
R4       EQU   4                                                               
R5       EQU   5                                                               
R6       EQU   6                                                               
R7       EQU   7                                                               
R8       EQU   8                                                                
R9       EQU   9                                                               
R10      EQU   10                                                              
R11      EQU   11                                                               
R12      EQU   12                                                              
R13      EQU   13                                                              
R14      EQU   14                                                               
R15      EQU   15                                                              
         END COBSETUP