Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How do i verify the char field is having (All x"00")

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Raghu M N

New User


Joined: 12 Mar 2018
Posts: 2
Location: India

PostPosted: Tue Sep 22, 2020 9:26 pm    Post subject: How do i verify the char field is having (All x"00")
Reply with quote

I am trying to check if the QID = '' (CHAR(26)) in below code and the value is All x"00" in input. Now flow is going to else part instead of going in if part.

Then i tried assigning QID = '' checking if NULL and its not working. Could some one please help me in finding better solution.

i want the flow to go in IF case.

Input:
Code:
1 MI
  05 QID_IN       All x"00"

DCL QID_IN                 CHAR (26);
DCL QID_PTR      PTR INIT (ADDR(QID_IN));

DCL  (NULL) BUILTIN;

IF QID_IN_PTR = NULL then do;   
         QID_IN = '';
 END;
IF QID_IN = '' then do;
   CALL QO_COLLECT;
END;
ELSE DO;
   CALL QO_EXPO_STATUS;
END;

Coded for you - next time do it yourself
Back to top
View user's profile Send private message

prino

Senior Member


Joined: 07 Feb 2009
Posts: 1220
Location: Vilnius, Lithuania

PostPosted: Tue Sep 22, 2020 10:04 pm    Post subject:
Reply with quote

Maybe you should start by RTFM.

The NULL() builtin function has abso-f*ck-ingly nothing to do with '00'x characters. And while you're at it, also look at string repetition factors, or the LOW() builtin function.

And don't post in a forum for experts when you're obviously totally clueless.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts XML Parsing in COBOL creating "h... elixir1986 COBOL Programming 0 Sat Oct 31, 2020 7:19 am
No new posts BMS map length field greater than zero Ziko13 CICS 3 Fri Oct 09, 2020 5:40 pm
No new posts Break a record into fields, each fiel... jackare SYNCSORT 2 Thu Oct 08, 2020 5:26 am
No new posts SYNCSORT Error - CONTROL FIELD BEYOND... arunn SYNCSORT 10 Sun Oct 04, 2020 4:10 pm
No new posts COnvert a column with mix of hex ,cha... shub2204 DB2 5 Fri Oct 02, 2020 2:20 pm

Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us