Re: Variable Declaration Question

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

Gasp ... (clutching chest) ...


Jon P.

> 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.