What is the use of H'00' ?



Software AG's platform-independent programming language with full support for open-source and Internet applications

What is the use of H'00' ?

Postby diptisaini » Fri May 21, 2010 2:51 pm

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 ?
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' ?

 

Re: What is the use of H'00' ?

Postby RGZbrog » Sat May 22, 2010 10:37 am

The statement
ASSIGN #STATUS-IND := H'00'
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.
User avatar
RGZbrog
 
Posts: 101
Joined: Mon Nov 23, 2009 1:34 pm
Location: California, USA
Has thanked: 0 time
Been thanked: 0 time


Return to Natural