Memory Allocation in COBOL

lijin · New User Joined: 03 Jun 2006 Posts: 2

HI... I HAVE A DOUBT .........PLEASE HELP ME....
I WROTE A SIMPLE MOVE VERB PROGRAM....

IDENTIFICATION DIVISION.
PROGRAM-ID.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CLASS.
02 NAME PIC A(5).
02 AGE PIC 9(2).
02 MARK1 PIC 9(3).
02 MARK2 PIC 9(3).
02 MARK3 PIC 9(3).

01 TEMP.
02 NAME PIC A(3).
02 AGE PIC 9(2).
02 MARK1 PIC 9(3).
02 MARK2 PIC 9(3).
02 MARK3 PIC 9(3).
PROCEDURE DIVISION.
P1.
DISPLAY "ENTER VALUES".
ACCEPT NAME OF CLASS.
ACCEPT AGE OF CLASS.
ACCEPT MARK1 OF CLASS.
ACCEPT MARK2 OF CLASS.
ACCEPT MARK3 OF CLASS.
MOVE CLASS TO TEMP.
DISPLAY TEMP.
STOP RUN.

I HAVE GIVE THESE VALUES AS INPUT:
LIJIN
22
88
92
93 I
GOT OUTPUT LIKE THIS IN MSCOBOL(72):LIJIN220880920
I GAVE A(5) FOR NAME IN GROUP 'CLASS' BUT ONLY A(3) FOR NAME IN GROUP 'TEMP'. WHEN I MOVED THE GROUP 'CLASS' TO 'TEMP' THE CHARACTER FIELD IN THE 'TEMP' GROUP WAS NOT ENOUGH [ONLY A(3)]TO RECIEVE THE INPUT 'LIJIN' (CONTAINED 5 CHARACTER FIELD).BUT HOW IT ALLOCATED 5 CHARACTER SPACE FOR THE NAME FILED IN 'TEST' GROUP?HOW [b]THE SPACE IS TAKEN FROM A NUMERIC DATA TYPE AND THE LAST NUMERIC FIELD WAS SHORTENED...? IS IT POSSIBLE TO STORE THE CHARACTER FILED IN A NUMERIC FILED?
I GAVE A SEPERATE MOVE STATEMENT LIKE THIS

MOVE NAME OF CLASS TO MARK1 OF TEMP.
THEN A RUNTIME ERROR OCCURED:'NON NUMERIC DATA'...

HOW THE MEMORY ALLOCATION IN THE ABOVE PROGRAM WAS TAKEN PLACE....?

WHEN I USED THE OPTION

'MOVE CORRESPONDING CLASS TO TEMP' WITH THE SAME INPUTS I GOT THE OUTPUT LIKE THIS

LIJ22088092093
WHY THIS DIFFERENCE OCCURS.....?

Marso · Posted: Sun Jun 11, 2006 7:08 pm