Answer / 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.

What dd statement is used to supply the name of a dataset?

0 Answers  

---

In a single step if input file is present then only need to copy into output file or else need to through a RC is it possible. Note : i want it in a single step

1 Answers  

---

WORKING-STORAGE SECTION. 1 GROUP-ITEM. 05 AMOUNT-1 PIC 99V9 USAGE COMP VALUE 50. 05 AMOUNT-2 PIC 9(4)V99 USAGE COMP. PROCEDURE DIVISION. MOVE ZERO TO GROUP-ITEM. ADD 50 TO AMOUNT-1. DISPLAY AMOUNT-1. STOP RUN.

1 Answers  

---

What are the differences between JES2 & JES3 ?

4 Answers  

---

what is d/f b/w sysout & sysprint

4 Answers   TCS,

---

How would you understand error(execution phase)?

0 Answers  

---

What is the use of DUMMY statement in the JCL? What is the use of DUMMY Utility in the JCL?

12 Answers   Convergys,

---

My JCL have five steps & I created new versions of GDG in first step through fourth step & fifth step I was refered Step one GDG version. My JCL got abend at 4th step and how I can restart my JCL Please let me know the answers. //STEP1 EXEC GDG1(+1) DISP=(NEW) //STEP2 EXEC GDG1(+2) DISP=(NEW) //STEP3 EXEC GDG1(+3) DISP=(NEW) //STEP4 EXEC GDG1(+4) DISP=(NEW) //STEP5 EXEC GDG1(+1) DISP=(OLD)

11 Answers   HCL, IBM, L&T, TCS,

---

What are SD37, SB37, SE37 abends?

4 Answers  

---

is there any utility for restarting a particular step in jcl reply soon ?

5 Answers  

---

What does a disposition of (NEW,CATLG,DELETE) mean?

3 Answers  

---

Suppose there r 10 steps . Out fo which i want to execute 10th, 9th and 8th in reverse order without using IEBEDIT. How can i do that..???

5 Answers   IBM, UST,

---