Interested to Buy Any Domain ? << Click Here >> for more details...
Answer Posted / dimpy19
>>-+-CBL-----+--+--------------+-------------------------------><
'-PROCESS-' '-options-list-'
You can use CBL as a synonym for PROCESS.
options-list - A series of one or more compiler options, each one separated by a comma or a space.
**Compiler option can be set up in two way
1. JCL
2. COBOL Code
1. JCL - pass in PARM in EXEC statement
//MANGO1 EXEC PGM=IGYCRCTL,
// PARM='NUM,NODYN,APOST,NOSEQUENCE,NONAME,NOMDECK,LIST'
2. COBOL Code - PROCESS LIST,NOOFFSET
PROCESS LIST,NOOFFSET
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 VAR1 PIC 999 VALUE ZEROS.
01 VAR2 PIC 999 VALUE ZERO .
01 VAR3 PIC 999 VALUE ZEROS.
PROCEDURE DIVISION.
DISPLAY ' IN PROCEDURE DIVISION ' .
MOVE 12 TO VAR2.
MOVE 10 TO VAR3.
DIVIDE VAR1 INTO VAR2 GIVING VAR3.
DISPLAY ' VAR3 ' VAR3.
STOP RUN.
then go to sysout check message like below ---
The system detected a decimal-divide exception (System Completion Code=0CB).
From compile unit HELLO at entry point HELLO at compile unit offset +000001E2 at
address 25C001E2.
here offset +000001E2
take last 4 and check in compiler listing for the offset
000016: DIVIDE VAR1 INTO VAR2 GIVING VAR3.
0001D6 E902 D16C 80A0 000016 PKA 364(R13),160(3,R8)
0001DC E902 D15C 8098 000016 PKA 348(R13),152(3,R8)
0001E2 FD31 D178 D16A 000016 DP 376(4,R13),362(2,R13)
0001E8 F321 80A8 D178 000016 UNPK 168(3,R8),376(2,R13)
0001EE 96F0 80AA 000016 OI 170(,R8),X'F0'
now check line number 000016
000016** DIVIDE VAR1 INTO VAR2 GIVING VAR3.
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
How to compare two files in SYNCSORT and on the mismatch record should be deleted from second file.
Is there any command to check wether the ps file is in sorted order?
what is DSN parameter and DISP parameter is used for?
what happens when COND is coded in JOB statement and when COND is coded inside EXEC statement?
What are the 4 fields in dd statement?
What is the function of a dd statement?
How to resolve the error "WER488A JOIN CAPACITY EXCEEDED" I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem? I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem?
Is their any limit for data sets?
what are the types of abends that occur on job failure? And explain the possible causes of these
I want my job (careerride) to be executed in 1 minute and 2 seconds. How do I do that?
Differentiate between addressing mode and run mode.
if the submitter of a job wants to inform another user about the job completion, how can it be done?
What are the parameters that are used in creating a gdg?
if we want to use a gdg which is already created by some job, then how to use the reference of the last generation in a jcl?
What are the 2 types of parameters in dd statement?
