Define data local
01 #ENTITY-STATUS-TYPE (A07)
01 REDEFINE #ENTITY-STATUS-TYPE
02 #ENTITY (A03)
02 #STATUS-IND (A01)
02 #MESSAGE-TYPE (A03)
END-DEFINE
FORMAT LS=120
INPUT #ENTITY-STATUS-TYPE
ASSIGN #STAT-REC-KEY-PU := #ENTITY
ASSIGN #ENTITY-KEY := #ENTITY
ASSIGN #STAT-FILLER-1 := 0
ASSIGN #STAT-FILLER-2 := 0
ASSIGN #STATUS-IND := H'00'
I just need to know what is meaning of ASSIGN #STATUS-IND := H'00' staement ?
Suppose if i am entering value for #ENTITY-STATUS-TYPE variable then i need to enter any for #STATUS-IND variablre or not ?
What is the use of H'00' ?
Previous topic • Next topic • 2 posts
• Page 1 of 1
What is the use of H'00' ?
by diptisaini » Fri May 21, 2010 2:51 pm
- diptisaini
- Posts: 90
- Joined: Sun Mar 14, 2010 5:12 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: What is the use of H'00' ?
by RGZbrog » Sat May 22, 2010 10:37 am
The statement assigns the field to the value of hexadecimal 0, known in COBOL as LOW-VALUES. Not knowing your application, I can't explain why the program would replace the fourth position of a 7-character field that you just entered.
ASSIGN #STATUS-IND := H'00'
-
RGZbrog - Posts: 101
- Joined: Mon Nov 23, 2009 1:34 pm
- Location: California, USA
- Has thanked: 0 time
- Been thanked: 0 time
Previous topic • Next topic • 2 posts
• Page 1 of 1