/* generate error message for error when opening a file for PL/I symbolic debugger %include 'cantopen.inc' for the proper entry declaration */ cantopen: procedure(filename, oncode) returns(char(50) varying); dcl filename char(*), oncode fixed bin(15), msg char(50) varying; %include 'rundef.pli'; /*for no_such_file*/ /**************************************************************************************************************/ msg = 'can''t open '!!filename; if oncode = no_such_file then msg = msg!!', no such file'; /*give the most common error in English*/ else msg = msg!!', oncode='!!oncode; /*for others, we hope the user knows how to look it up (try DCL HELP DEBUG ERROR)*/ return(msg); end;