Back To LeighWeb Mainframe Utilities Page
View the documentation associated with this module
/* REXX ***************************************************************/
/* UTILITY: SYNCEXT */
/* AUTHOR: DAVID LEIGH */
/* FUNCTION: THIS EXEC CALLS "SYNCVARS" TO SYNCRONIZE THE EXTENDED */
/* EDIT AND EXTENDED BROWSE VARIABLES FROM ONE PROFILE TO */
/* THE NEXT. */
/**********************************************************************/
/*** FIRST, QUEUE UP THE BROWSE VARIABLES ***/
DO I = 1 TO 39
QUEUE "QBRN"I
END
/*** NOW, QUEUE UP THE EDIT VARIABLES ***/
DO I = 1 TO 39
QUEUE "QERN"I
END
QUEUE "COL3EPFX"
/*** NOW, CALL SYNCVARS TO DO THE WORK ***/
ADDRESS ISPEXEC "SELECT CMD(%SYNCVARS)"
|
