**FREE
DCL-DS dsPgmStatus PSDS QUALIFIED;
  Procedure CHAR(10);
  StatusCode ZONED(5);
  PrevStatusCode ZONED(5);
  SourceLine# CHAR(8);
  RPGRoutine CHAR(8);
  #ParametersPassed ZONED(3);
  ExceptionType CHAR(3);
  Exception# CHAR(4);
  Exception CHAR(7) SAMEPOS(ExceptionType);
  Reserved1 CHAR(4);
  MessageWorkArea CHAR(30);
  ProgramLibrary CHAR(10);
  ExceptionData CHAR(80);
  ExceptionID_RNX9001 CHAR(4);
  LastFileOperation CHAR(10);
  Unused1 CHAR(6);
  DateEnteredSystem CHAR(8);
  StartDateCentury ZONED(2);
  LastFileOperation2 CHAR(8);
  LastFileUsedStatus CHAR(35);
  JobName CHAR(10);
  JobUser CHAR(10);
  Job# ZONED(6);
  JobStartDate ZONED(6);
  ProgramDate ZONED(6);
  ProgramTime ZONED(6);
  ProgramCompileDate CHAR(6);
  ProgramCompileTime CHAR(6);
  CompilerLevel CHAR(4);
  SourceFile CHAR(10);
  SourceFileLibrary CHAR(10);
  SourceMember CHAR(10);
  ProcedureProgram CHAR(10);
  ProcedureModule CHAR(10);
  SourceLine#Binary BINDEC(2);
  LastFileStatus BINDEC(2);
  User CHAR(10);
  ExternalErrorCode INT(10);
  XML_Data_IntoElements INT(20);
  InternalJobId CHAR(16);
  SystemName CHAR(8);
END-DS;