Link to home
Start Free TrialLog in
Avatar of Phillip Knox
Phillip KnoxFlag for United States of America

asked on

Coding for returned data using DCL-PR

Need to understand return data in free form prototypes
     D libLEExists...                                                                                                           
     D                pr             3  0                                                                                          
     D pLib                         10a   value                                                                                    
     D pLibType                     10a   value options(*nopass)                                                                   
                                                                                                                                    
       dcl-pr libLEExists;                                                                                         
                pLib           int(10 : 0)   value;                                                                                 
                pLibType       int(10 : 0)   value options(*nopass);                                                                
       end-pr;                                                              

Open in new window

top portion is standard, lower is free form prototype of top part I did, but don't understand the translation of the (3  0) in the 'pr' section above. Thanks
Avatar of Gary Patterson, CISSP
Gary Patterson, CISSP
Flag of United States of America image

Personally, I always explicitly declare the data type.  Pretty that a blank numeric type defaults to "P", so:

dcl-pr PACKED(3:0) libLEExists;
ASKER CERTIFIED SOLUTION
Avatar of Gary Patterson, CISSP
Gary Patterson, CISSP
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Phillip Knox

ASKER

Thanks Gary!