program zdtp_syntaxCheck message-id zdtm_syntaxCheck.
initialization.
noWithErrors = 0.
noWithWarnings = 0.
noCompiled = 0.
start-of-selection.
case 'X'.
when rbProg.
perform findPrograms using soProg[]
iProgramNames[]
pMax
soPack[]
soAuth[]
soChange[]
pLocl
pGen.
when rbFunc.
perform findFuncs using soFGroup[]
iProgramNames[]
pMax
soPack[]
soAuth[]
pLocl
pGen.
when rbClass.
perform findClasses using soClass[]
iProgramNames[]
pMax
soPack[]
soAuth[]
pLocl
pGen.
endcase.
if not iProgramNames[] is initial.
numberOfPrograms = lines( iProgramNames[] ).
message s001 with numberOfPrograms.
perform syntaxCheckPrograms using iProgramNames[]
iMessages[]
pUni
pObs
rbMessE
rbMessW.
endif.
end-of-selection.
case 'X'.
when rbProg.
perform prepareProgDataforALV using iProgramNames[]
iMessages[]
iProgramDetails[]
pFail.
noCompiled = ( numberOfPrograms - noWithErrors - noWithWarnings ).
message s002 with numberOfPrograms noWithErrors noWithWarnings.
if not iProgramDetails[] is initial.
sort iProgramDetails ascending by alvStatus subc programName.
call screen 0100.
endif.
when rbFunc.
perform prepareFuncDataforALV using iProgramNames[]
iMessages[]
iFuncDetails[]
pFail.
noCompiled = ( numberOfPrograms - noWithErrors - noWithWarnings ).
message s003 with numberOfPrograms noWithErrors noWithWarnings.
if not iFuncDetails[] is initial.
sort iFuncDetails ascending by alvStatus funcName.
call screen 0100.
endif.
when rbClass.
perform prepareClassDataforALV using iProgramNames[]
iMessages[]
iClassDetails[]
pFail.
noCompiled = ( numberOfPrograms - noWithErrors - noWithWarnings ).
message s006 with numberOfPrograms noWithErrors noWithWarnings.
if not iClassDetails[] is initial.
sort iClassDetails ascending by alvStatus className.
call screen 0100.
endif.
endcase.
free iProgramDetails.
free iFuncDetails.
free iProgramNames.
free iClassDetails.
|