An issue

[worksofliam]

**Free
Ctl-Opt Main(Engage_Usage_Report);
Ctl-Opt Debug Option(*SrcStmt:*NoDebugIO);
Ctl-Opt ActGrp(*Caller);
Ctl-opt Bnddir('PCRPROCS');
Ctl-opt ExtBinInt(*Yes);

/copy p.common
/copy p.excel
/copy setsqlopt
/copy SqlStruct

Dcl-s engage_stores Char(256);
Dcl-s fileNameMain LIKE(T_QRY2XLSP_fileName);
Dcl-s fileName     LIKE(T_QRY2XLSP_fileName);
Dcl-s sheetName    LIKE(T_QRY2XLSP_sheetName);
DCL-S ifsLocation  LIKE(T_EXCEL_ifsFile) Inz('/pcr/temporary/');
DCL-S reportName   LIKE(T_QRY2XLSP_fileName);
Dcl-c tic x'7D';
Dcl-s today              Date;
Dcl-s today_minus_7_days Date;
DCL-S to_list      Char(80) Dim(COMMON_SEND_EMAIL_TO_LIST_MAX);
Dcl-s query        LIKE(T_QRY2XLSP_qry);

Dcl-Proc Engage_Usage_Report;

  Dcl-Pi Engage_Usage_Report;
    p_mode Char(3) Options(*NoPass);
  End-Pi;

  If %parms() > 0 and %Addr(p_mode) <> *Null;

  Else;

  Endif;

  Clean_Up();

  On-Exit;
End-Proc Engage_Usage_Report;

// Clean up
Dcl-Proc Clean_Up;

  Dcl-Pi Clean_Up;
  End-Pi;

  On-Exit;
End-Proc Clean_Up;

{
"indent": 2,
"PrototypeCheck": true,
"NoOCCURS": true,
"NoSELECTAll": true,
"UppercaseConstants": false,
"IncorrectVariableCase": true,
"NoSQLJoins": false,
"PrettyComments": true,
"NoGlobalSubroutines": true,
"NoUnreferenced": true,
"SQLHostVarCheck": true,
"BlankStructNamesCheck": true,
"UselessOperationCheck": true,
"NoExternalTo": [
"QCMD",
"QP2TERM",
"QSH",
"SYSTEM",
"QCMDEXC"
]
}