Free Form Definition specs

Can't seem to find the equivalent for the System Data Structure in free form on V7R1 machine.
     d                SDS                                                                                                           
     d l_procname                    10a                                                                                            
     d l_pgmstatus                    5s 0                                                                                          
     d l_prevstatus                   5s 0                                                                                          
     d l_srclinestmt                  8a                                                                                            
     d l_pgmroutine                   8a                                                                                            
     d l_pgm#parms                    3s 0                                                                                          
     d l_cpfmsgid                     7a                                                                                            
     d l_machineinstr                 4a                                                                                            
     d l_pgmworkmem                  30a                                                                                            
     d l_pgmlib                      10a                                                                                            
     d l_errordata                   80a                                                                                            
     d l_rpgmsg                       4a                                                                                            
     d filler_01                     69a                                                                                            
     d l_jobname                     10a                                                                                            
     d l_jobuser                     10a                                                                                            
     d l_jobnumb                      5s 0                                                                                          
     d l_jobdate                      6s 0                                                                                          
     d l_pgmrundt                     6s 0                                                                                          
     d l_pgmruntime                   6s 0

Open in new window


Any help is appreciated! Thanks
Phillip KnoxSenior Systems AnalystAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

tliottaCommented:
Not "System Data Structure", but Program-Status Data Structure.

A simple example is shown in Free-Form Data Structure Definition under the 'Program Status Data Structure (PSDS)' sub-topic.

The PSDS keyword identifies the DS type and meaning. Otherwise it's mostly just like any DS.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Gary PattersonVP Technology / Senior Consultant Commented:
Simon Hutchinson has a neat way to do this.  First, he defines and externally-described file that mimics the layout of the PSDS (you can just cut and paste the DDS from here):

http://www.rpgpgm.com/2013/09/externally-described-data-structures.html

Then he just uses this to pull it in:

    dcl-ds PgmDs
       extname('RPG4DS') psds qualified
    end-ds ;

Pretty slick, and you can use the same external definition in fixed-form or free-form programs.
0
Phillip KnoxSenior Systems AnalystAuthor Commented:
Thanks tliotta, always a pleasure.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
IBM System i

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.