Re: Variable Declaration Question

On Oct 13, 2023, at 10:14 AM, Jerry Adams <midrange@xxxxxxxx> wrote:

Yeah, Jon would have a coronary if you use binary.

Jerry C. Adams
Borrow money from pessimnists.they don't expect it back. -Steven Wright
IBM i Programmer/Analyst
--
NMM&D
615-585-2175

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
stefan@xxxxxxxxxx
Sent: Friday, October 13, 2023 8:42 AM
To: 'RPG programming on IBM i'
Subject: RE: Variable Declaration Question

I would use:

dcl-ds FIDS01 ;
STCSRP int(5) pos(370) ;
SFPAGE int(5) pos(378) ;
end-ds;


Best regards

Stefan

--
No trees were killed in the sending of this message, but a large number of
electrons were terribly upset.

Stefan Tageson
+46 732 369934
stefan@xxxxxxxxxx

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Robert
Wenzel
Sent: Friday, October 13, 2023 3:38 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Variable Declaration Question

If I want to convert this data structure from d-specs to free-form, which of
the examples, below, would be correct? I am having trouble with what the
Fixed Binary subfield should be; bindec() or int() and its length.

D FIDS01 DS
D STCSRP 370 371B 0
D SFPAGE 378 379B 0

==== Example #1 ====
dcl-ds FIDS01 ;
STCSRP bindec(4:0) pos(370) ;
SFPAGE bindec(4:0) pos(378) ;
end-ds;

==== Example #2 ====
dcl-ds FIDS01 ;
STCSRP bindec(9:0) pos(370) ;
SFPAGE bindec(9:0) pos(378) ;
end-ds;

==== Example #3 ====
dcl-ds FIDS01 ;
STCSRP int(10) pos(370) ;
SFPAGE int(10) pos(378) ;
end-ds;

Thank you
--

*Robert Wenzel, Senior Software Engineer* iSeries Applications Support and
Development

[image: Inmar]
<https://www.inmar.com/?utm_source=email%20signature&utm_medium=email&utm_ca
mpaign=Associate%20Email%20Signature&utm_content=Inmar%20Logo>


robert.wenzel@xxxxxxxxx

One West Fourth Street, Suite 500, Winston Salem, NC 27101
*p: 336-770-3478*
www.inmar.com
<https://www.inmar.com/?utm_source=email%20signature&utm_medium=email&utm_ca
mpaign=Associate%20Email%20Signature&utm_content=URL%20link>
| LinkedIn <https://www.linkedin.com/company/inmar> | Facebook
<https://www.facebook.com/inmarinc> | Twitter
<https://twitter.com/inmarinc>

"The whole problem with the world is that fools and fanatics are always so
certain of themselves, but wiser people so full of doubt." - Bertrand
Russell

--


********************************************





*Inmar Confidentiality
Note*: This e-mail and any attachments are confidential and intended to be
viewed and used solely by the intended recipient. If you are not the
intended recipient, be aware that any disclosure, dissemination,
distribution, copying or use of this e-mail or any attachment is prohibited.
If you received this e-mail in error, please notify us immediately by
returning it to the sender and delete this copy and all attachments from
your system and destroy any printed copies. Thank you for your cooperation.





*Notice of Protected Rights*: The removal of any copyright, trademark, or
proprietary legend contained in this e-mail or any attachment is prohibited
without the express, written permission of Inmar, Inc. Furthermore, the
intended recipient must maintain all copyright notices, trademarks, and
proprietary legends within this e-mail and any attachments in their original
form and location if the e-mail or any attachments are reproduced, printed
or distributed.



********************************************
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.


--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.