24 lines
377 B
Plaintext
24 lines
377 B
Plaintext
lcFile = FORCEEXT(SYS(16),'prg')
|
|
lnRows = APROCINFO(laproc,lcFile)
|
|
|
|
lcProcedures = ""
|
|
FOR i = 1 TO lnRows
|
|
IF LOWER(laproc[i,3]) = 'procedure'
|
|
lcProcedures = lcProcedures + laproc[i,1] + CHR(13) + CHR(10)
|
|
ENDIF
|
|
ENDFOR
|
|
MESSAGEBOX(lcProcedures)
|
|
|
|
PROCEDURE test1
|
|
|
|
ENDPROC && test1
|
|
|
|
|
|
PROCEDURE test2
|
|
|
|
ENDPROC && test2
|
|
|
|
PROCEDURE test31
|
|
|
|
ENDPROC && test31
|