Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
titleFixed Format Exit Program Procedure Prototype
	 D PUIATEXLAU      PR                  ExtPgm('PUIATEXLAU')
     D  iUser                       128A   Const
     D  iItemID                     128A   Const
     D  oLaunchConfig                      LikeDS(dsLaunchConfig)
     D  oError                         N
     D  oErrorMsg                   256A


Code Block
titleFree Form Format Exit Program Procedure Prototype
Dcl-PR Main ExtPgm('PUIATEXLAU');
   iUser         Char(128);
   iCode         Char(128);
   oLaunchConfig LikeDS(dsLaunchConfig);
   oError        Ind;
   oErrorMsg     Char(256);
End-PR;

...