As we know soc7 come when we doing any arithmetic operation on non numeric data. thats i know.
and we can got a soc7 by using this code.
Code: Select all
ID DIVISION.
PROGRAM-ID. "DEEPAK".
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC X(4) VALUE 'A###'.
01 B PIC S9(2)V99 COMP-3.
PROCEDURE DIVISION.
MOVE A TO B.
DISPLAY "VALUE OF A ", B.
STOP RUN.
but i want a code of soc7 with out using comp-3 only by numeric and alphanumeric..
can any one give me any idea, how can i get it..