How do you define a variable of COMP-1? COMP-2?
Answers were Sorted based on User's Feedback
Answer / pal
77 A COMP-1.
77 B COMP-2.
because we can't use PIC clause in comp-1 & comp-2
| Is This Answer Correct ? | 42 Yes | 8 No |
Answer / paddu
01 a usage comp-1.
01 b usage cpmp-2.
this way to define
| Is This Answer Correct ? | 12 Yes | 1 No |
How to solve SOC7. I have the cobol coded as below 01 A PIC 9(4). 01 AIN REDEFINES A. 05 AIN1 PIC S9(4) 01 B PIC 9(4)V99. 01 BIN REDEFINES B. 05 BIN1 PIC S9(4)V99. PROCEDURE DIVISION. START-PARA. INITIALIZE A AIN B BIN. ACCEPT A B. DISPLAY 'VALUE OF A=' A. DISPLAY 'VALUE OF B=' B. DISPLAY 'VALUE OF BIN1=' BIN1. DISPLAY 'VALUE OF AIN1=' AIN1. COMPUTE AIN1 = BIN1 - AIN1. DISPLAY 'VALUE OF AIN1=' AIN1. When i'm executing this code i'm getting SOC7 for A = 12 & B=34. Can someone explain SDSF OUTPUT DISPLAY TCOM058R JOB05458 DSID 102 LINE 0 COLUMNS 02- 81 COMMAND INPUT ===> SCROLL ===> CSR ********************************* TOP OF DATA ********************************** VALUE OF A=12 VALUE OF B=34 VALUE OF BIN1=34 VALUE OF AIN1=12 CEE3207S The system detected a data exception (System Completion Code=0C7). From compile unit PROG1 at entry point PROG1 at statement 29 at compile +000004CE at address 00007ECE. Please address how to solve this issue Thanks in advance.
EXPLAIN MAIN FRAME TESTING PROCESS...HOW TO FIX THE MAINFRAME BUGS?
How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English is a language". I would like to delete leading spaces.
What is Static,Dynamic linking ?
What is an index for tables?
if someone is using my file,how can i find which user id is using?
what are the utilities for load and unload the DB2 tables
what is SYNCHRONIZATION?
what is the purpose of linkage section?
What is rmode(any) ?
What is inspect in cobol ?
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?