|
Back To LeighWeb Mainframe Utilities Page
View the documentation associated with this module
ISREDIT MACRO NOPROCESS (OPT1)
ISPEXEC CONTROL ERRORS RETURN
/**** SET MESSAGE DISPLAY ON/OFF BASED ON THE DEBUG SWITCH ***/
ISPEXEC VGET (DBGSWTCH) PROFILE
IF &DBGSWTCH = &STR(ON) THEN CONTROL MSG LIST CONLIST SYMLIST NOFLUSH
ELSE CONTROL NOMSG NOLIST NOFLUSH NOPROMPT
IF &OPT1 = HELP THEN GOTO HELPSEC
/**********************************************************************
/* UTILITY: FLOW *
/* AUTHOR: DAVID LEIGH *
/* FUCTION: INDENT AND "TFLOW" A PARAGRAPH TO THE POINT WHERE THE *
/* CURSOR IS. *
/**********************************************************************
/**********************************************************************
/* PARSE THE CURRENT SITUATION AND DO THE INITIAL FLOW. *
/**********************************************************************
ISREDIT (SLINE,SCOL) = CURSOR
ISREDIT FIND FIRST P'¬' .ZCSR .ZCSR
ISREDIT (LN,CL) = CURSOR
ISREDIT LABEL .ZCSR = .CURR
IF &DATATYPE(&OPT1) = NUM THEN +
SET LRECL = &OPT1
ELSE +
IF &STR(&OPT1) = DISPLAY THEN +
ISREDIT (NULL,LRECL) = DISPLAY_COLS
ELSE +
ISREDIT (LRECL) = LRECL
ISREDIT TFLOW .ZCSR &EVAL(&LRECL - &SCOL + 1)
ISREDIT (X,Y) = FLOW_COUNTS
/**********************************************************************
/* LOOP THROUGH AND DO THE SHIFTS. *
/**********************************************************************
IF &EVAL(&SCOL - &CL) > 0 THEN +
DO &I = 0 TO &EVAL(&Y - 1)
ISREDIT CURSOR = &EVAL(&SLINE + &I) 1
ISREDIT SHIFT ) .ZCSR &EVAL(&SCOL - &CL)
END
/**********************************************************************
/* RETURN TO THE ORIGINAL CURSOR POSITION *
/**********************************************************************
ISREDIT CURSOR = &SLINE &SCOL
ISREDIT TFLOW .ZCSR &LRECL
EXIT
HELPSEC: + 02480000
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL) 02490000
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR FLOW UTILITY + 02490000
*** NO PROCESSING PERFORMED ***) 02490000
ISPEXEC SETMSG MSG(UTLZ000) 02490000
EXIT
|
|
