Difference between revisions of "Free Form Definitions"

From MidrangeWiki
Jump to: navigation, search
(Free-Form Definitions)
(Free-Form Definitions)
Line 13: Line 13:
 
==Free-Form Definitions==
 
==Free-Form Definitions==
 
The following are new free-form definition statements to take the place of the indicated fixed-format specifications.
 
The following are new free-form definition statements to take the place of the indicated fixed-format specifications.
  CTL-OPT   equates to H-specs
+
  CTL-OPT . . equates to H-specs
  DCL-F     equates to F-specs
+
  DCL-F . . . equates to F-specs
  DCL-C     equates to D-spec constants
+
  DCL-C . . . equates to D-spec constants
  DCL-S     equates to D-spec stand-alone fields
+
  DCL-S . . . equates to D-spec stand-alone fields
  DCL-DS     equates to D-spec data structures
+
  DCL-DS . . . equates to D-spec data structures
  END-DS     to terminate most DCL-DS statements
+
  END-DS . . . to terminate most DCL-DS statements
  DCL-PI     equates to D-spec procedure interface definitions
+
  DCL-PI . . . equates to D-spec procedure interface definitions
  END-PI     to terminate procedure interface definitions
+
  END-PI . . . to terminate procedure interface definitions
  DCL-PR     equates to D-spec procedure prototype definitions
+
  DCL-PR . . . equates to D-spec procedure prototype definitions
  END-PR     to terminate procedure prototype definitions
+
  END-PR . . . to terminate procedure prototype definitions
  DCL-PROC   equates to P-spec begin statements
+
  DCL-PROC . . equates to P-spec begin statements
  END-PROC   equates to P-spec end statements
+
  END-PROC . . equates to P-spec end statements
  
 
==Examples==
 
==Examples==

Revision as of 16:36, 31 May 2016

One of the major new features of ILE RPG, introduced in 7.1, is free form definition specifications.

Features

  • Removes the column restrictions on definitions.
  • Can be interspersed with standard, fixed form, definitions.
  • /free and /end-free no longer required.

Requirements

  • IBM i 7.1 or higher.
  • 7.1 PTF 5770WDS SI51094.
  • If using SQLRPGLE, 7.1 PTF Group SF99701 level 26 or higher.

Free-Form Definitions

The following are new free-form definition statements to take the place of the indicated fixed-format specifications.

CTL-OPT  . . equates to H-specs
DCL-F  . . . equates to F-specs
DCL-C  . . . equates to D-spec constants
DCL-S  . . . equates to D-spec stand-alone fields
DCL-DS . . . equates to D-spec data structures
END-DS . . . to terminate most DCL-DS statements
DCL-PI . . . equates to D-spec procedure interface definitions
END-PI . . . to terminate procedure interface definitions
DCL-PR . . . equates to D-spec procedure prototype definitions
END-PR . . . to terminate procedure prototype definitions
DCL-PROC . . equates to P-spec begin statements
END-PROC . . equates to P-spec end statements

Examples

<source lang="rpg">

    D* fixed-form declarations
    D string        S       50A VARYING 
    D date          S         D DATFMT(*MDY) 
    D obj           S         O CLASS(*JAVA:'MyClass') 
    D ptr           S         * PROCPTR 
   
      // free-form declarations 
      DCL-S string VARCHAR(50); 
      DCL-S date DATE(*MDY); 
      DCL-S obj OBJECT(*JAVA:'MyClass'); 
      DCL-S ptr POINTER(*PROC);
    
      // constants
      DCL-C max_count 200; 
      DCL-C deleted 'D'; 

</source >

Links

Dawn May: Free format RPG and TR7


This article is a stub. You can help by editing it.