News
Stay informed about the latest enterprise technology news and product updates.
ATT962063 -- command
ATT962063 -- command
Continue Reading This Article
Enjoy this article as well as all of our content, including E-Guides, news, tips and more.
Step 2 of 2:
PGM PARM(&PATHNAME) DCL VAR(&PATHNAME) TYPE(*CHAR) LEN(512) DCL VAR(&EXISTS) TYPE(*LGL) OBJEXISTS PATHNAME(&PATHNAME) RETURN(&EXISTS) IF COND(&EXISTS) THEN(SNDPGMMSG MSG('Object' + *BCAT &PATHNAME *BCAT 'exists')) ELSE CMD(SNDPGMMSG MSG('Object' *BCAT &PATHNAME + *BCAT 'does not exist')) ENDPGM
Start the conversation
0 comments