IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

有人可以帮我找到下面鳕鱼中的错误吗


IBM大型机论坛 -> IBM工具
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
shub2204

新的用户


已加入:2020年5月13日
帖子:19
地点:印度

发布发表于:2020年10月28日,星期三5:35 pm
引用回复

我得到如果其他错误
码:

 VARSET H1 = "!HOUR"
 VARSET M1 = "!MINT"
 IF ("!H1" = "01") & ("!M1" <= "30") THEN 做
 VARSET M2 = 60 - "!M1"
 VARSET ACD = "!ACD  FILES !M2 MIN EARLY"
 END
 ELSE IF (("!H1" = "00") & ("!M1" <= "30")) THEN 做
    VARSET M2 = 30 - "!M1"
    VARSET ACD ="!ACD 文件早1分钟!M2分钟"
 END
 ELSE IF (("!H1" = "00") & ("!M1" > "30")) THEN 做
    VARSET M2 = 60-"!M1"
    VARSET ACD ="!ACD 文件早00小时!M2分钟"
 END
 ELSE IF "!H1" = "01" & "!M1" > "30"  THEN 做
    VARSET M2 = 30 - "!M1"
    VARSET ACD ="!ACD 文件延迟了0 HR!M2 MIN"


小时表示我们1而分钟是10
这是错误
码:

10/28 11.53.14 EQQI200I 做
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I VARSET M2 = 60-"!M1"
10/28 11.53.14 EQQI201I VARSET M2 = 60-"10"
10/28 11.53.14 EQQI033A变量M2设置为50
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I VARSET ACD ="!ACD  FILES !M2 MIN EARLY"
10/28 11.53.14 EQQI201I VARSET ACD ="28/10/20 01:10  FILES 50 MIN EARLY"
10/28 11.53.14 EQQI033A Variable ACD set to 20/10/20 01:10  FILES 50 MIN EARLY
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I 结束
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I ELSE
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I 做
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I VARSET M2 = 30-"!M1"
10/28 11.53.14 EQQI201I VARSET M2 = 30-"10"
10/28 11.53.14 EQQI033A变量M2设置为20
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I VARSET ACD ="!ACD 文件早1分钟!M2分钟"
10/28 11.53.14 EQQI201I VARSET ACD ="28/10/20 01:10  FILES 50 MIN EARLY  FILES
           ... EQQI201I 01 HR提前20分钟"
10/28 11.53.14 EQQI033A Variable ACD set to 20/10/20 01:10  FILES 50 MIN EARLY
           ... EQQI033A文件01 HR 20分钟早
10/28 11.53.14 EQQI299I语句已完成-RC = 0
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I 结束
10/28 11.53.14 EQQI299I语句已完成-RC = 0

10/28 11.53.14 EQQI200I ELSE
10/28 11.53.14 EQQI221F意外的THEN或ELSE
10/28 11.53.14 EQQI299I声明已完成-RC = 12

10/28 11.53.14 EQQI107I写入的文件数= 1
10/28 11.53.14 EQQI104I记录写入文件REPORT = 167
10/28 11.53.14 EQQI099I WAPL完成-最高返回码12-8.53(1.28) sec
准备

我不明白的是,因为这是一个ifesle循环,为什么要执行第二个if
回到顶部
查看用户资料 发送私信
加里·卡罗尔

高级会员


加入时间:2006年5月8日
职位:1100
所在地:爱尔兰都柏林

发布发表:2020年10月28日星期三晚上9:11
引用回复

IF-ELSE循环在哪里?我看到了一系列嵌套的IF语句-最后一个缺少END语句。

加里
回到顶部
查看用户资料 发送私信
shub2204

新的用户


已加入:2020年5月13日
帖子:19
地点:印度

发布发表:2020年10月28日星期三晚上11:10
引用回复

好的..好像我以错误的方式提出了要求。
但是在嵌套循环的情况下,在我的情况下只应执行一个循环,否则将进入第二个循环,否则将出错。
我将把整个代码放在一段时间后。
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表于:2020年10月29日,星期四6:06上午
引用回复

您还没有显示任何循环-只是一堆不完整的IF-THEN-ELSE,实际上没有嵌套。
回到顶部
查看用户资料 发送私信
shub2204

新的用户


已加入:2020年5月13日
帖子:19
地点:印度

发布发表于:2020年10月29日,星期四12:09 pm
引用回复

这是完整的代码。
码:
/ * ------------------------------------------------ -------------------- * /       
/ * CAPGHLTC-凯捷健康检查。                                 */       
/*           检查来自DD 工作的操作以及来自的应用程序    */       
/*           DD 应用和电子邮件将报告给Capgemini。                 */       
/ *输入                                                              */       
/ * -----                                                              */       
/*                                                                    */       
/* 工作 DD   - list of jobs                                           */       
/ * -------                                                            */       
/*   Word 1 -星期几矩阵MTWTFSS,将星期几替换为   */       
/*             句号跳过这一天的检查。  i.e.        */       
/*             MTWTFS。星期日不做检查。             */       
/*   Word 2 -TWS应用程序名称。                                  */       
/*   Word 3 -TWS作业名称或“全部”以检查并列出一个作业中的所有作业   */       
/*             Application. 完全没有必要,因为    */       
/*             ZLAST将检查上一个作业。                         */       
/*                                                                    */       
/ * 应用 DD   -应用清单                                   */       
/ * -------                                                            */       
/*   Word 1 -星期几矩阵MTWTFSS,将星期几替换为   */       
/*             句号跳过这一天的检查。  i.e.        */       
/*             MTWTFS。星期日不做检查。             */       
/*   Word 2 -TWS应用程序名称。                                  */       
/*   Word 3 -与这项工作的时间表有关的IA日期。       */       
/*             0-与此工作IA日期相同。                         */       
/*             n-该工作IA之前的天数-n。   */       
/*   Word 4+-报告要检查的描述。          */       
/*                                                                    */       
/ * 高动态范围 DD    - HTML Header                                            */       
/ * ------                                                             */       
/ *此处的代码位于生成的报告的开头     */       
/ *定义以HTML格式发送的电子邮件。                     */       
/*                                                                    */       
/ * TLR DD    - HTML Trailer                                           */       
/ * ------                                                             */       
/ *此处的代码位于生成的报告的末尾,       */       
/ *定义以HTML格式发送的电子邮件。                     */       
/*                                                                    */       
/ *参数                                                         */       
/ * ----------                                                         */       
/ * PHASE应该由WAPL代码调用include成员来设置。   */       
/*                                                                    */       
/ *输出                                                             */       
/ * ------                                                             */       
/* 报告 DD                                                          */       
/ * ---------                                                          */       
/ *此代码随后通过电子邮件发送的HTML报告                         */       
/*                                                                    */       
/ *日期       Who    Description                                      */       
/ * ---------- ------ -------------------------------- ---------------- * /       
/ * 14/05/2020 BBARED新的WAPL代码                                    */       
/ * 18/05/2020 BBARED用OJOBS和OAPPS替换了对象OBJ,        */       
/*                   refined code.                                    */       
/ * 19/05/2020 BBARED将OJOBS循环移动到pevent重复项。 * /       
/ * 2020年6月12日,舒罕·楚汉                                         */       
/*           增加了计算延迟和提前运行时间的逻辑。 * /       
/*           prpmd045和prpmd220时间表。                      */       
/ * ------------------------------------------------ -------------------- * /       
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *获取今天的数字1 =星期一                                   */       
/ * ------------------------------------------------ -------------------- * /       
今天的变量集=日期('O')                                                       
VARSET 做WNUM = DATE('B',"!TODAY",'O')//7 + 1                                   
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *设置邮件服务器                                                    */       
/ * ------------------------------------------------ -------------------- * /       
选项邮件服务器(royalmail.com)                                               
                                                                               
/ * ================================================= =================== * /       
/ *第1部分-检查作业                                                */       
/ * ================================================= =================== * /       
                                                                               
VARSET RUNDT =翻译('GH/EF/ABCD',"!CYMD",'ABCDEFGH')                       
VARSET RUNTM =翻译('AB:CD:EF',"!CHHMMSS",'ABCDEF')                       
VARSET RUN   = "!RUNDT !RUNTM"                                                 
/*                                                                             
写报告"<h1>报告由Job!OJOBNAME!OJJESNO!RUN产生</h1>"         
*/                                                                             
/ * ------------------------------------------------ -------------------- * /       
/ *在HTML中建立表格标题                                         */       
/ * ------------------------------------------------ -------------------- * /       
写报告"<h1>Job 状态</h1>"                                             
写报告"<table>"                                                         
写报告"  <tr>"                                                           
写报告"    <th>Application Name</th>"                                   
写报告"    <th>Input Arrival<br>Date/Time</th>"                         
写报告"    <th>Operation<br>Number</th>"                                 
写报告"    <th>Job Name</th>"                                           
写报告"    <th>Status</th>"                                             
写报告"    <th>Completed<br>Date/Time</th>"                             
写报告"  </tr>"                                                         
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *将作业DD读取到对象作业中,然后遍历它,发出一个   */       
/ * list命令用于每个作业以列出作业。                        */       
/ * ------------------------------------------------ -------------------- * /       
读取作业对象(JOBS) COUNT(0)                                                 
/ *循环输入作业                                                    */       
做 J = 1到!@JOBS                                                             
  VARSET DAYS = WORD("@V(@JOBS-!J.)",1)                                         
  VARSET ADID = WORD("@V(@JOBS-!J.)",2)                                         
 VARSET JOBNAME = WORD("@V(@JOBS-!J.)",3)                                     
  IF "!JOBNAME" = "ALL" THEN               / *列出appl中的所有作业? * /       
    VARSET JOBNAME = "*"                    /* 将工作名称设置为wildcrd * /       
 VARSET RUNCHECK = SUBSTR("!DAYS","!DOWNUM",1)                                 
  IF "!RUNCHECK" /= "." THEN               / *我们今天检查工作吗? * /       
    做                                                                         
     / *列出标记为CHKJOB的作业,以供以后测试                    */       
      CHKJOB: LIST CPOPCOM ADID(!ADID) JOBNAME(!JOBNAME)                       
      IF @CMD(CHKJOB.EQ.4) THEN             / *找不到,告诉我们     */       
        做                                                                     
          写报告"  <tr style=""background-color: red;"">"               
          写报告"    <td>!ADID</td>"                                     
          写报告"    <td> </td>"                                         
          写报告"    <td> </td>"                                         
          写报告"    <td>!JOBNAME</td>"                                 
          写报告"    <td>Not found</td>"                                 
          写报告"    <td> </td>"                                         
          写报告"  </tr>"                                               
        结束                                                                     
      IF @CMD(CHKJOB.EQ.0) THEN             / *找到,列出对象  */       
        做                                                                     
          LIST CPOPCOM ADID(!ADID) JOBNAME(!JOBNAME) OBJECT(OJOBS)             
        结束                                                                     
      SETMAX政策(0)                      /* Set RC back to 0       */       
    结束                                     /* End runcheck           */       
结束                                         /* End J loop             */       
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/* Loop object 欧宝 to produce report of jobs                        */       
/ * ------------------------------------------------ -------------------- * /       
做 X = 1到!@OJOBS                                                             
  VARSET ADID    @V(@OJOBS!X.-CPOPADI)                                         
  VARSET IA      @V(@OJOBS!X.-CPOPIA)                                           
 VARSET IAD =翻译('EF/CD/AB GH:IJ',"!IA",'ABCDEFGHIJ')                   
  VARSET OPNO    @V(@OJOBS!X.-CPOPNO)                                           
  VARSET JOBNAME @V(@OJOBS!X.-CPOPJBN)                                         
  VARSET STATUS  @V(@OJOBS!X.-CPOPST)                                           
  VARSET AE      @V(@OJOBS!X.-CPOPAE)                                           
 VARSET AED =翻译('EF/CD/AB GH:IJ',"!AE",'ABCDEFGHIJ')                   
 / * ------------------------------------------------ ------------------ * /       
 / *当状态为C时,作业已完成,因此在* /中添加绿色行       
  /* HTML 表. 如果有其他状态,请添加红色行。                  */       
 / * ------------------------------------------------ ------------------ * /       
  IF "!STATUS" = "C" THEN                                                       
    做                                                                         
      写报告"  <tr style=""background-color: lime;"">"                   
      写报告"    <td>!ADID</td>"                                         
      写报告"    <td>!IAD</td>"                                         
      写报告"    <td>!OPNO</td>"                                         
      写报告"    <td>!JOBNAME</td>"                                     
      写报告"    <td>Complete</td>"                                     
      写报告"    <td>!AED</td>"                                         
      写报告"  </tr>"                                                   
    结束                                                                         
  ELSE                                                                         
    做                                                                         
      写报告"  <tr style=""background-color: red;"">"                   
      写报告"    <td>!ADID</td>"                                         
      写报告"    <td>!IAD</td>"                                         
      写报告"    <td>!OPNO</td>"                                         
      写报告"    <td>!JOBNAME</td>"                                     
      写报告"    <td>!STATUS</td>"                                       
      写报告"    <td> </td>"                                             
      写报告"  </tr>"                                                   
    结束                                                                         
结束                                 /* 结束 做 X LOOP          */               
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *添加HTML标记以结束表定义                        */       
/ * ------------------------------------------------ -------------------- * /       
写报告"</table>"                                                         
写报告"<br>"                                                             
                                                                               
/ * ================================================= =================== * /       
/ *第2部分-检查应用程序                                        */       
/ * ================================================= =================== * /       
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *在HTML中建立表格标题                                         */       
/ * ------------------------------------------------ -------------------- * /       
写报告"<h1>申请完成</h1>"                                 
写报告"<table>"                                                         
写报告"  <tr>"                                                           
写报告"    <th>Description of check</th>"                               
写报告"    <th>Application Name</th>"                                   
写报告"    <th>Input Arrival<br>Date/Time</th>"                         
写报告"    <th>Status</th>"                                             
写报告"    <th>Start Time<br>Date/Time</th>"                             
写报告"    <th>Completed<br>Date/Time</th>"                             
写报告"    </tr>"                                                       
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *将APPS DD读入对象APPS,然后遍历它,发出一个   */       
/ *为每个应用程序选择commadn,然后构建报告表行。 * /       
/ * ------------------------------------------------ -------------------- * /       
阅读应用程序对象(APPS) COUNT(0)                                                 
做 X = 1到!@APPS                                                             
  VARSET COLOR ="LIME"                                                         
  VARSET DAYS = WORD("@V(@APPS-!X.)",1)                                         
 VARSET INADID = WORD("@V(@APPS-!X.)",2)                                       
  VARSET DAY    = WORD("@V(@APPS-!X.)",3)                                       
  VARSET DESCR  = SUBWORD("@V(@APPS-!X.)",4)                                   
 VARSET RUNCHECK = SUBSTR("!DAYS","!DOWNUM",1)                                 
  IF "!RUNCHECK" /= "." THEN                                                   
    做                                                                         
      IF "!DAY" = "0" THEN                                                     
        做                                                                     
          VARSET FINDIA = "!OYMD1"||"*"                                         
        结束                                                                     
      ELSE                                                                     
        做                                                                     
          VARSET OFFSET = "-"||"!DAY"                                           
          VARDATE FINDIA BASE(!OYMD1) OFFSET(!OFFSET)                           
          VARSET FINDIA = "!FINDIA"||"*"                                       
        结束                                                                     
      SELECT CPOC ADID(!INADID) IA(!FINDIA) STATUS(*) OBJECT(OAPPS)             
      IF @CMD(EQ.0) THEN                                                       
        做                                                                     
          VARSET ADID   @V(@OAPPS-CPOCADI)        /* ADID OF OBJECT   */       
          VARSET IA     @V(@OAPPS-CPOCIA)         /* IA OF OBJECT     */       
         VARSET IAD =翻译('EF/CD/AB GH:IJ',"!IA",'ABCDEFGHIJ')           
          VARSET STATUS @V(@OAPPS-CPOCST)         /* STATUS OF OBJCT  */       
          VARSET AC     @V(@OAPPS-CPOCAC)         /* COMPLETE DT/TM   */       
         VARSET ACD =翻译('EF/CD/AB GH:IJ',"!AC",'ABCDEFGHIJ')           
          VARSET AA     @V(@OAPPS-CPOCAA)         /* COMPLETE DT/TM   */       
         VARSET AAS =翻译('EF/CD/AB GH:IJ',"!AA",'ABCDEFGHIJ')           
         / * ------------------------------------------------ ---------- * /       
          IF "!ADID" = "PRPMD045"  THEN                                         
          做                                                                   
             VARSET DATE = SUBSTR("!AC",5,2)                                   
             VARSET CDATE = DATE('S')                                           
             VARSET CDAY = SUBSTR("!CDATE",3,6)                                 
             VARSET JDAY = SUBSTR("!AC",1,6)                                   
             VARSET HOUR = SUBSTR("!AC",7,2)                                   
             VARSET MINT = SUBSTR("!AC",9,2)                                   
             IF "!CDAY" > "!JDAY"  THEN 做                                     
                IF "!MINT" = '00' THEN 做                                       
                   VARSET H1 = 24-"!HOUR"                                       
                   VARSET M1 = "!MINT"                                         
                   VARSET ACD = "!ACD 送出的文件!H1 HR!M1 MIN提早"         
                结束                                                             
                ELSE  做                                                       
                   VARSET H1 = 23-"!HOUR"                                       
                   VARSET M1 = 60-"!MINT"                                       
                   VARSET ACD = "!ACD 送出的文件!H1 HR!M1 MIN提早"         
                结束                                                             
             END                                                               
             ELSE 做                                                           
                VARSET H1 ="!HOUR"                                             
                VARSET M1 ="!MINT"                                             
                VARSET ACD ="!ACD !H1 HR!M1 MIN延迟的文件"           
                VARSET COLOR ="#FFBF00"                                       
             END                                                               
          结束                                                                   
/ * ------------------------------------------------ -------------------- * /       
/ *计算时间 通过较早发送过的文件* /       
/ *或更早,星期一/星期二(即01)的时间有所不同:30 HRS  */       
/ *夏令时和休息日  0000 HRS BST.                         */       
/ * ------------------------------------------------ -------------------- * /       
          IF "!ADID" = "PRPMD220"  THEN                                         
            做                                                                 
               VARSET DATE = SUBSTR("!AC",5,2)                                 
               VARSET CDATE = DATE('S')                                         
               VARSET CDAY = SUBSTR("!CDATE",3,6)                               
               VARSET JDAY = SUBSTR("!AC",1,6)                                 
               VARSET HOUR = SUBSTR("!AC",7,2)                                 
               VARSET MINT = SUBSTR("!AC",9,2)                                 
             IF  "!DOWNUM" = "2" | "!DOWNUM" = "3"  THEN                       
             DO                                                                 
/ * ------------------------------------------------ -------------------- * /       
/ *上次发送文件时的情况 日期为哪个日期* /       
/ *调用此WAPL的JCL。                                 */       
/ * ------------------------------------------------ -------------------- * /       
               IF "!CDAY" > "!JDAY"  THEN 做                                   
                  IF "!MINT" = "00" THEN 做                                     
                   VARSET H1 = 25-"!HOUR"                                       
                   VARSET M1 = "!MINT" + 30                                     
                   VARSET ACD = "!ACD 送出的文件!H1 HR!M1 MIN提早"         
                  结束                                                           
                  别做                                                       
                   VARSET H1 = 24-"!HOUR"                                       
                   VARSET M1 = 60-"!MINT" + 30                                 
                    IF "!M1" > "60" THEN 做                                     
                      VARSET H1 ="!H1" + 1                                     
                      VARSET M1 ="!M1" - 60                                   
                    结束                                                         
                   VARSET ACD = "!ACD 送出的文件!H1 HR!M1 MIN提早"         
                  结束                                                           
               END                                                             
/ * ------------------------------------------------ -------------------- * /       
/ *与文件在同一日期发送文件的情况     */       
/ *调用此WAPL的JCL。                                 */       
/ * ------------------------------------------------ -------------------- * /       
               ELSE 做                                                         
                  VARSET H1 ="!HOUR"                                           
                  VARSET M1 ="!MINT"                                           
                  IF (("!H1" = "01") & ("!M1" <= "30")) THEN 做                 
                  VARSET M1 =60- "!M1"                                         
                  VARSET ACD ="!ACD 文件0!M1分钟"                     
                  结束                                                           
                  否则(("!H1" = "00") & ("!M1" <= "30"))  THEN 做           
                     VARSET M1 = 30 - "!M1"                                     
                     VARSET ACD = "!ACD  FILES 01 HR !M1 MIN EARLY"             
                  结束                                                           
                  ELSE  IF "!H1" = "00" & "!M1" > "30"  THEN 做                 
                     VARSET M1 = 60 - "!M1"                                     
                     VARSET ACD = "!ACD  FILES 00 HR !M1 MIN EARLY"             
                  结束                                                           
                  否则"!H1" = "01" & "!M1" > "30"  THEN 做                 
                     VARSET M1 = 30 - "!M1"                                     
                     VARSET ACD = "!ACD 文件延迟了0 HR!M1 MIN"         
                     VARSET COLOR = "#FFBF00"                                   
                  结束                                                           
                  否则"!H1" >='2' & "!M1" > '30' THEN 做                   
                        VARSET M0 = "!M1" - 30                                 
                        VARSET COLOR ="#FFBF00"                               
                        VARSET H0 = "!H1" - 1                                   
                        VARSET ACD ="!ACD文件被延迟                 
                                     !H0 HR !M0 MIN"                           
                  结束                                                           
                  否则"!H1" >='2' & "!M1" <= '30' THEN 做                   
                        VARSET M0 = "!M1" + 30                                 
                        VARSET H0 = "!H1" - 2                                   
                        VARSET COLOR ="#FFBF00"                               
                        VARSET ACD ="!ACD文件延迟                     
                                     !H0 HR !M0 MIN"                           
                  结束                                                           
               END                                                             
             END                                                                                                                           
/ * ------------------------------------------------ -------------------- * /       
/ *以在星期一和星期二以外的其他日子发送文件为例* /       
/ *握手时间为0000 HRS BST。                               */       
/ * ------------------------------------------------ -------------------- * /       
             ELSE 做                                                           
               IF "!CDAY" > "!JDAY"  THEN 做                                   
                  IF "!MINT" = "00" THEN 做                                     
                     VARSET H1 = 24-"!HOUR"                                     
                     VARSET M1 = "!MINT"                                       
                     VARSET ACD = "!ACD 送出的文件!H1 HR!M1 MIN提早"       
                  结束                                                           
                  ELSE  做                                                     
                     VARSET H1 = 23-"!HOUR"                                     
                     VARSET M1 = 60-"!MINT"                                     
                     VARSET ACD = "!ACD 送出的文件!H1 HR!M1 MIN提早"       
                  结束                                                           
               END                                                             
               ELSE 做                                                         
                  VARSET H1 ="!HOUR"                                           
                  VARSET M1 ="!MINT"                                           
                  VARSET COLOR ="#FFBF00"                                     
                  VARSET ACD ="!ACD !H1 HR!M1 MIN延迟的文件"         
               END                                                             
            结束                                                                 
          结束                                                                   
         / * ------------------------------------------------ ---------- * /       
         / *状态为C时,表示申请已完成  */       
         / *绿色行到我们的HTML表格。 其他任何状态添加   */       
          /* RED ROW.                                                 */       
         / * ------------------------------------------------ ---------- * /       
          IF "!STATUS" = "C" THEN                                               
            做                                                                 
             WRITE 报告 "  <TR STYLE=""BACKGROUND-COLOR: !COLOR;"">"         
             WRITE 报告 "    <TD>!DESCR</TD>"                                 
             WRITE 报告 "    <TD>!ADID</TD>"                                 
             WRITE 报告 "    <TD>!IAD</TD>"                                   
             WRITE 报告 "    <TD>!STATUS</TD>"                               
             WRITE 报告 "    <TD>!AAS</TD>"                                   
             WRITE 报告 "    <TD>!ACD</TD>"                                   
             WRITE 报告 "  </TR>"                                             
            结束                                                                 
          ELSE                                                                 
            做                                                                 
             WRITE 报告 "  <TR STYLE=""BACKGROUND-COLOR: RED;"">"             
             WRITE 报告 "    <TD>!DESCR</TD>"                                 
             WRITE 报告 "    <TD>!ADID</TD>"                                 
             WRITE 报告 "    <TD>!IAD</TD>"                                   
             WRITE 报告 "    <TD>!STATUS</TD>"                               
             WRITE 报告 "    <TD> </TD>"                                     
             WRITE 报告 "  </TR>"                                             
            结束                                                                 
        结束                                                                     
      ELSE                                                                     
        做                                                                     
           / * ------------------------------------------------ --------- * /       
           / *如果未找到该应用程序,则在   */       
           /* HTML 表                                              */       
           / * ------------------------------------------------ --------- * /       
           SETMAX POLICY(0)                       / *将RC设置回0 * /         
           VARSET FINDIAD =翻译('EF/CD/AB G',"!FINDIA",'ABCDEFG')         
           WRITE 报告 "  <tr style=""background-color: red;"">"               
           WRITE 报告 "    <td>!DESCR</td>"                                   
           WRITE 报告 "    <td>!INADID</td>"                                 
           WRITE 报告 "    <td>!FINDIAD</td>"                                 
           WRITE 报告 "    <td>Not found</td>"                               
           WRITE 报告 "    <td> </td>"                                       
           WRITE 报告 "  </tr>"                                               
        结束                                                                     
    结束                                                                         
结束                                                                             
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *添加HTML标记以结束表定义                        */       
/ * ------------------------------------------------ -------------------- * /       
写报告"</table>"                                                         
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *关闭REPORT DD以确保将报告记录写入其中     */       
/ *,然后再发送报告。                                         */       
/ * ------------------------------------------------ -------------------- * /       
CLOSE 报告                                                                   
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *当WAPL尝试替换@和!时,关闭变量扫描。与   */       
/ *值。                                                            */       
/ * ------------------------------------------------ -------------------- * /       
VARSUB NOSCAN                                                                   
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *通过电子邮件发送包含HDR,REPORT和TLR DD的报告* /       
/ *一起组成邮件的内容。                          */       
/ * ------------------------------------------------ -------------------- * /       
  SENDMAIL FROM(RMG-POH7@ROYALMAIL.COM)                                         
       TO(cg_itst_lot2b_mainframe.in@capgemini.com)                             
       CC(roopa.a.sharma@capgemini.com                                         
          shubham.chauhan@capgemini.com                                         
          richard.dealtry@atos.com)                                             
       SUBJECT(POH7-每日健康检查)                                       
       TEXTDD(HDR)                                                             
       TEXTDD(REPORT)                                                           
       TEXTDD(TLR)                                                             
回到顶部
查看用户资料 发送私信
shub2204

新的用户


已加入:2020年5月13日
帖子:19
地点:印度

发布发表于:2020年10月29日,星期四12:14 pm
引用回复

这是错误部分:

码:
 10/28 11.23.54 EQQI200I 做                                                                                                         
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I VARSET M2 = 60-"!M1"                                                                                     
 10/28 11.23.54 EQQI201I VARSET M2 = 60-"10"                                                                                       
 10/28 11.23.54 EQQI033A变量M2设置为50                                                                                       
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I VARSET ACD ="!ACD 文件0!M2分钟"                                                                   
 10/28 11.23.54 EQQI201I VARSET ACD ="28/10/20 01:10  FILES 050 MIN EARLY"                                                         
 10/28 11.23.54 EQQI033A Variable ACD set to 20/10/20 01:10  FILES 050 MIN EARLY                                                     
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I 结束                                                                                                         
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I ELSE                                                                                                       
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I 做                                                                                                         
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I VARSET M2 = 30-"!M1"                                                                                     
 10/28 11.23.54 EQQI201I VARSET M2 = 30-"10"                                                                                       
 10/28 11.23.54 EQQI033A变量M2设置为20                                                                                       
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I VARSET ACD ="!ACD 文件早1分钟!M2分钟"                                                             
 10/28 11.23.54 EQQI201I VARSET ACD ="28/10/20 01:10  FILES 050 MIN EARLY                                                           
             ... EQQI201I文件HR 01早20分钟"                                                                                   
110/28 11.23.54 EQQI033A可变ACD设置为28/10/20 01:10  FILES 050 MIN EARLY                                                     
             ... EQQI033A文件01 HR 20分钟早                                                                                   
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I 结束                                                                                                         
 10/28 11.23.54 EQQI299I声明已完成-RC = 0                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI200I ELSE                                                                                                       
 10/28 11.23.54 EQQI221F意外的THEN或ELSE          <===                                                                           
 10/28 11.23.54 EQQI299I声明已完成-RC = 12                                                                                 
                                                                                                                                     
 10/28 11.23.54 EQQI107I写入的文件数= 1                                                                                 
 10/28 11.23.54 EQQI104I记录写入文件REPORT = 167                                                                       
 10/28 11.23.54 EQQI099I WAPL完成-最高返回码12-6.96(0.96) sec                                                   
 READY                                                                                                                               
 END     

编辑以使错误消息更加明显
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表于:2020年10月29日,星期四2:42 pm
引用回复

我还没有分析全部内容,但是从缩进来看,它提示您在以
IF "!ADID" = "PRPMD220" 然后
回到顶部
查看用户资料 发送私信
shub2204

新的用户


已加入:2020年5月13日
帖子:19
地点:印度

发布发表于:2020年10月29日,星期四2:58 pm
引用回复

你好威利,

谢谢参观 icon_smile.gif PRPMD220结束于状态=“ C”之前完成。

它没有其他部分,如果是prpmd220,我正在尝试在其中进行处理。该问题发生在小时数为1时。那里是嵌套的所有循环,而不是一个循环
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表于:2020年10月29日,星期四4:18 pm
引用回复

有些语言对缩进很挑剔-我不知道这是否是其中之一。以防万一,有一个代码没有缩进的块。我还要对编码进行标准化-您在一行上有一些IF / THEN / 做,而在另一行上有IF THEN,在下一行有DO。确保每次缩进相同的金额。
完成此操作后,请使用ISPF编辑器功能排除所有内容,然后查找所有的IF,THEN,DO,END和ELSE。然后,从最深层的嵌套开始,排除完整的IF / THEN / ELSE集。
回到顶部
查看用户资料 发送私信
shub2204

新的用户


已加入:2020年5月13日
帖子:19
地点:印度

发布发表于:2020年10月29日,星期四4:24 pm
引用回复

是的,Nic绝对是..该工作负载自动化编程非常关心缩进..其他很多解析错误。同时,我用嵌套的if ..更改了and条件。让我们看看它是否运行良好。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> IBM工具

 


类似主题
话题 论坛 回覆
没有新帖 加载D ...时二级索引错误 IMS数据库/ DC 2
没有新帖 错误0C1原因代码1与分支i ... PL / I和组装商 3
没有新帖 xped时出现错误 JCL和VSAM 10
没有新帖 同步排序错误-超出控制范围... 同步排序 10
没有新帖 Easytrieve EZABX007,错误代码0 ... CA产品 7
搜索我们的论坛:


回到顶部