This is how I could define an alphanumeric field, and then define another using the is used to define a packed field.
- jennifer tilly dating
- Will local hookups no sign up or in
- pros and cons of college dating
- books dating christian women
Prior to the new all free RPG variables (fields) would have been coded in the Definition specification, D-spec.
With the new version of RPG the fixed format D-spec has gone.
It has been replaced by new free form definition statements.
At the time I am writing this post I have not found any other articles giving examples of how to code these new definition statements, therefore, I am going to give examples of how I have used them as I am starting to become this new version of the language.
Keywords 01 D DS 02 D Telephone1 12A 03 D Area Code1 3A overlay(Telephone1:2) 04 dcl-ds *N ; 05 dcl-subf Telephone1 char(12) ; 06 dcl-subf Area Code1 char(3) overlay(Telephone1:2) ; 07 end-ds ; 08 dcl-ds *N ; 09 Telephone2 char(12) ; 10 Area Code2 char(3) overlay(Telephone2:2) ; 11 end-ds ; Those of you who are regular reader of this blog know that I use an externally described data structure to define the Program Status data structure (PSDS), see Externally described Data Structures.
If you notice that the DName+++++++++++ETDs From+++To/L+++IDc.
Keywords 01 D Ind Ds DS qualified 02 D Exit 3 3N 03 D Errors 50 59A 04 D Err Control Group Not Found...
The definitions I am going to discuss here are: I am going to give examples of the way I would have coded various type of variables using the fixed formal D-spec and how I am coding the same thing using the new free format definition statements.
I am not going to go into too much detail as I am assuming that you, the reader, already has a basic knowledge of how to define variables.
The free form definition statement to define a standalone variable is .
This is followed by the variable’s name, its type and size, and then any relevant keywords which are the same as keywords used with the fixed format D-spec.