/*-IOFFMT Sample Rexx exec to rearrange IOF Panel Formats------------*/ /* */ /* From the Job List Menu, Output jobs section, or */ /* from the Output Group Display, enter: */ /* */ /* %IOFFMT 1 */ /* or */ /* %IOFFMT 2 */ /* */ /* The panel format will be re-arranged slightly. The format change */ /* is temporary. As soon as the current panel is terminated, the */ /* default panel format is re-instated. */ /* */ /* This sample exec can be easily modified to satisfy local */ /* requirements. */ /* */ /*-------------------------------------------------------------------*/ /* Parse the input parm */ parse arg Fmt_Nbr Fmt_Nbr = strip(Fmt_Nbr) address IOF /* Get the current section name into variable "section". */ 'TSICOPY NAME(SECTION) TO(REXX) SECTION(PANEL)' /* Call a subroutine based on the section name */ select when section = 'OUTPUT' then call Output_Jobs when section = 'HARDCOPY' then call Output_Groups when section = 'HELD' then call Output_Groups /* Give an IOF error message (short and long) for invalid sections */ otherwise do "TSIMSG 'Section' 'IOFFMT not valid in the" section "section'" end end /* End the section select */ exit /* Normal exit */ /*-Output jobs section processing subroutine-------------------------*/ Output_Jobs: select when Fmt_Nbr = 1 then do /* Format 1 */ 'ARRANGE DEFAULT' /* Revert to default format */ 'ARRANGE $TEMP' /* Specify temporary change */ 'ARRANGE OWNER LAST' /* Move OWNER last */ 'ARRANGE DESTDEV BEFORE OWNER' /* Move DESTDEV before OWNER */ end when Fmt_Nbr = 2 then do /* Format 2 */ 'EXTEND ON' /* Set EXTEND mode */ 'ARRANGE DEFAULT' /* Revert to default format */ 'ARRANGE $TEMP' /* Specify temporary change */ 'ARRANGE USERNAME FIRST' /* Move USERNAME first */ end otherwise do /* Bad Fmt_Nbr, give Error. */ "TSIMSG 'Format' 'Invalid format number" Fmt_Nbr "specified'" exit /* Exit with message */ end end /* End select */ return /* Return from subroutine */ end /* End Job Select Subroutine-*/ /*-Output groups section processing subroutine-----------------------*/ Output_Groups: select when Fmt_Nbr = 1 then do /* Format 1 */ 'ARRANGE DEFAULT' /* Revert to default format */ 'ARRANGE $TEMP' /* Specify temporary change */ 'ARRANGE DISP LAST' /* Move DISP last */ 'ARRANGE DEST AFTER OWNER' /* Move DEST after OWNER */ END when Fmt_Nbr = 2 then do /* Format 2 */ 'EXTEND ON' /* Set EXTEND mode */ 'ARRANGE DEFAULT' /* Revert to default format */ 'ARRANGE $TEMP' /* Specify temporary change */ 'ARRANGE USERNAME FIRST' /* Move USERNAME first */ 'ARRANGE FORMS AFTER USERNAME' /* Move FORMS second */ 'ARRANGE WTRID AFTER FORMS' /* Move WTRID third */ end otherwise do /* Bad Fmt_Nbr, give Error. */ "TSIMSG 'Format' 'Invalid format number" Fmt_Nbr "specified'" exit /* Exit with error message */ end end /* End select */ return /* Return from subroutine */ end /* End Output Group Routine */