double your dating cocky and funny - Rog dating definition

This is how I could define an alphanumeric field, and then define another using the is used to define a packed field.

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.

507 Comments

  1. This is how I could define an alphanumeric field, and then define another using the is used to define a packed field.

  2. Notice that in the first free statement, line 2, the number of decimal places is not given, while it is in the other free statement, line 4.

  3. If the number of decimal places is not given zero is assumed.

  4. Also notice that the length of the field is separated from the number of decimal places by a colon, DName+++++++++++ETDs From+++To/L+++IDc.

  5. Prior to the new all free RPG variables (fields) would have been coded in the Definition specification, D-spec.

  6. With the new version of RPG the fixed format D-spec has gone.

  7. It has been replaced by new free form definition statements.

Comments are closed.