Need a listing of all of the paragraph names in your current open COBOL source? This handy command file will create a list into a temporary file, download it to your PC, and then display it using ViewClip.
LISTPARA.CMD
------------
parm parasearch="---",window="Y"
option nolist
echo ListPara copyright 1997 Robelle Solutions Technology Inc.
echo Written by Ken Robertson
if "!parasearch" = "?" then
echo usage: listpara {search_string}
echo
echo This command file will list paragraphs in the current open
echo qedit file. It really only works for COBOL programs.
echo
echo If search_string is specified, the resulting list will display
echo the number of entries found and the filtered list.
echo
return
endif
comment Get the current file name. This is tricky!
:/ver open > opentmp
print opentmp;start=1;end=1 > paratemp
setjcw cierror 0
:/ver zz > tempzz
/zz */* {save the current line number}
continue
/findq "procedure division" (8/25 ups) [
if cierror <> 0 then
echo Warning: No Procedure Division Found
/lq [
endif
if "!parasearch"="---" then
if "!window" = "Y" then
:/l "~?"(7/8 pat) */ >> paratemp
else
/lj "~?"(7/8 pat) */
endif
else
: /l "~?"(7/8 pat) */ > paratemp
: /l paratemp "!parasearch" > paratems
setvar entry_cnt finfo("paratemp","eof") - 1
setvar search_result finfo("paratems","eof")
echo &dDNumber of paragraphs searched: !entry_cnt &
Resulting matches: !search_result
if "!window" <> "N" then
if !search_result < 22 then
:/lq paratemp "!parasearch"
else
:/lqj paratemp "!parasearch"
endif
endif
deletevar search_result
deletevar entry_cnt
endif
if "!window" = "Y" then
/reflect receive paratemp.txt from paratemp delete ascii
/reflect shell c:\robelle\viewclip paratemp.txt
endif
:/list zz > $null {goback to where we were}
:/use zz > $null
....Back to the Qedit Q&A Page