免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 帮忙看下程序!
最近访问板块 发新帖
查看: 2645 | 回复: 4
打印 上一主题 下一主题

帮忙看下程序! [复制链接]

attitude

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2007-10-12 11:46 |只看该作者 |倒序浏览
FMT FX .....FFilenameIPEAF........L..I........Device+......KExit++Entry+A....U1........           
        *************** Beginning of data *********************************************************
0001.00      FSMADQMP O   E                    DISK                                          070927
0002.00      F*MADQMLAIF  E           K        DISK                                          071008
0003.00      F*           SMADQMR                           KRENAMESMADQMRA                  071008
0004.00      FSMLINALAIF  E           K        DISK                                          071010
0005.00      F            SMLINAR                           KRENAMESMLINARA                  071010
0006.00      FSMMINBLAIF  E           K        DISK                                          071010
0007.00      F            SMMINBR                           KRENAMESMMINBRA                  070927
0008.00      FSMNINCLAIF  E           K        DISK                                          071010
0009.00      F            SMNINCR                           KRENAMESMNINCRA                  070927
0010.00      F*LDWHSLAIF  E           K        DISK                                          071008
0011.00      F*           SLDWHSR                           KRENAMESLDWHSRA                  071008
0012.00      FSMGITMLAIF  E           K        DISK                                          071008
0013.00      F            SMGITMR                           KRENAMESMGITMRA                  070927
0014.00      FSMHPRDLAIF  E           K        DISK                                          071008
0015.00      F            SMHPRDR                           KRENAMESMHPRDRA                  070927
0016.00      FSLHCOLLAIF  E           K        DISK                                          071008
0017.00      F            SLHCOLR                           KRENAMESLHCOLRA                  070927
0018.00       *                                                                              070927
0019.00       **************************************************************************     070927
0020.00       *      MAIN                                                                    070927
0021.00       **************************************************************************     070927
0022.00       *                                                                              070927
0023.00      C                     EXSR SR100                                                070927
0023.01       *                                                                              070927
0024.00      C                     EXSR #ENDPG                                               070927
0025.00       *                                                                              070927
0026.00       **************************************************************************     070927
0027.00       * SR100                                                                        070927
0028.00       **************************************************************************     070927
0029.00       *                                                                              070927
0030.00      C           SR100     BEGSR                                                     070927
0030.01      C                     MOVE '0'       MS     112                                 071011
0031.00      C                     MOVE 'NO'      \YES    8                                  070927
0032.00      C                     MOVE 'NO'      \LOOP1  8                                  070927
0032.01      C                     MOVE '0'       QUTT   112                                 071011
0032.02      C                     MOVE '0'       QUTA   112                                 071009
0032.03      C                     MOVE '0'       QUTB   112                                 071011
0032.04      C                     MOVE '0'       QUTC   112                                 071011
0033.01      C                     MOVE '0'       WHCD    2                                  071011
0033.03      C                     MOVE '0'       ITCD    4                                  071011
0033.04      C                     MOVE '0'       PDCD    5                                  071011
0033.05      C                     MOVE '0'       COCD    2                                  071011
0033.06      C                     MOVE '0'       ITEM   15                                  071011
0033.07      C                     MOVE '0'       SIZE   30                                  071011
0033.08      C                     MOVE '0'       COAB    7                                  071011
0034.00      C           *LOVAL    SETLLSMMINBRA                                             070927
0035.00      C           \YES      DOWEQ\LOOP1                                               070927
0036.00      C                     READ SMMINBRA                 90                          070927
0037.00      C           *IN90     IFEQ '1'                                                  070927
0038.00      C                     EXSR #ENDPG                                               071008
0039.00      C                     ELSE                                                      070927
0040.00      C                     MOVE MMWHCD    WHCD                                       071009
0041.00      C           WHCD      IFEQ '10'                                                 071009
0042.00      C           WHCD      OREQ '11'                                                 071009
0043.00      C           WHCD      OREQ '12'                                                 071009
0044.00      C           WHCD      OREQ '25'                                                 071009
0045.00      C           WHCD      OREQ '35'                                                 071009
0046.00      C           WHCD      OREQ '55'                                                 071009
0046.01      C                     MOVE MMCUQT    QUTB                                       070927
0046.02      C                     MOVE MMITCD    ITCD                                       070927
0046.03      C                     MOVE MMPDCD    PDCD                                       071009
0046.04      C                     MOVE MMCOCD    COCD                                       070927
0047.00      C                     EXSR CHECK1                                               071010
0048.00      C                     ENDIF                                                     070927
0049.00      C                     ENDIF                                                     070927
0050.00      C                     ENDDO                                                     070927
0051.00      C                     ENDSR                                                     070927
0052.00       **************************************************************************     070927
0053.00       * CHECK1                                                                       070927
0054.00       **************************************************************************     070927
0054.01       *                                                                              071011
0055.00      C           CHECK1    BEGSR                                                     070927
0057.00      C           CHKEYC    KLIST                                                     071009
0058.00      C                     KFLD           ITCD                                       070927
0059.00      C                     KFLD           PDCD                                       070927
0060.00      C                     KFLD           COCD                                       070927
0060.01      C                     KFLD           WHCD                                       071009
0060.04      C           CHKEYC    SETLLSMNINCRA                 98                          071011
0060.05      C           *IN98     IFEQ '1'                                                  071011
0060.09      C           1         DOWEQ1                                                    071009
0061.00      C                     READ SMNINCRA                 91                          071011
0062.00      C           *IN91     IFEQ '0'                                                  071010
0062.01      C           MNWHCD    IFEQ WHCD                                                 071011
0062.02      C           MNITCD    ANDEQITCD                                                 071011
0062.03      C           MNPDCD    ANDEQPDCD                                                 071011
0062.04      C           MNCOCD    ANDEQCOCD                                                 071011
0063.00      C                     ADD  MNCUQT    QUTC                                       071009
0063.01      C                     ENDIF                                                     071011
0063.02      C                     ELSE                                                      071010
0063.03      C                     GOTO @CLOSE                                               071010
0063.04      C                     ENDIF                                                     071010
0069.01      C                     ENDDO                                                     071009
0069.02      C           @CLOSE    TAG                                                       071010
0069.03      C                     EXSR CHECK2                                               071010
0069.04      C                     ENDIF                                                     071010
0069.05      C                     MOVE '0'       WHCD                                       071011
0070.00      C                     ENDSR                                                     070927
0071.00       **************************************************************************     070927
0072.00       *     CHECK2                                                                   070927
0073.00       **************************************************************************     070927
0074.00      C           CHECK2    BEGSR                                                     070927
0074.01      C           CHKEYA    KLIST                                                     071009
0074.04      C                     KFLD           ITCD                                       071009
0074.05      C                     KFLD           PDCD                                       071009
0074.06      C                     KFLD           COCD                                       071009
0074.07      C           CHKEYA    SETLLSMMINBRA                                             071010
0074.08      C           1         DOWEQ1                                                    071009
0074.09      C           CHKEYA    READESMMINBRA                 43                          071010
0074.10      C           *IN43     IFEQ '0'                                                  071009
0074.11      C           MMWHCD    IFNE WHCD                                                 071011
0074.13      C                     ADD  MMCUQT    MS                                         071011
0074.15      C                     ENDIF                                                     071009
0074.16      C                     ELSE                                                      071010
0074.17      C           CHKEYC    SETGTSMMINBRA                                             071011
0074.18      C                     LEAVE                                                     071010
0074.19      C                     ENDIF                                                     071009
0074.20      C                     ENDDO                                                     071009
0075.00      C           CHKEYA    CHAINSMLINARA             42                              071010
0076.00      C           *IN42     IFEQ '0'                                                  070927
0077.00      C                     MOVE MLCUQT    QUTA                                       071011
0077.01      C                     MOVE QUTA      QUTT                                       071011
0077.02      C           QUTA      SUB  MS        QUTT                                       071011
0078.00      C           QUTB      IFEQ QUTC                                                 070927
0079.00      C           QUTC      ANDEQQUTT                                                 071011
0080.00      C                     GOTO @END                                                 070927
0081.00      C                     ELSE                                                      070927
0082.00      C                     EXSR WRITE                                                070927
0083.00      C                     ENDIF                                                     070927
0084.00      C                     ENDIF                                                     070927
0084.01      C           @END      TAG                                                       070927
0084.02      C                     MOVE '00'      WHCD                                       071011
0084.03      C                     Z-ADD0         MS                                         071011
0084.04      C                     Z-ADD0         QUTT                                       071011
0084.05      C                     Z-ADD0         QUTA                                       071011
0084.06      C                     Z-ADD0         QUTB                                       071011
0084.07      C                     Z-ADD0         QUTC                                       071011
0085.00      C                     ENDSR                                                     070927
0086.00       **************************************************************************     070927
0087.00       *     WRITE                                                                    070927
0088.00       **************************************************************************     070927
0089.00      C           WRITE     BEGSR                                                     070927
0090.00      C           ITCD      CHAINSMGITMRA             62                              070927
0091.00      C           *IN62     IFEQ '1'                                                  071008
0091.01      C                     GOTO @OVER                                                071008
0091.02      C                     ELSE                                                      071008
0092.00      C                     MOVE MGITNB    MAITEM                                     070927
0092.01      C                     ENDIF                                                     071008
0093.00      C           PDCD      CHAINSMHPRDRA             61                              070927
0094.00      C           *IN62     IFEQ '1'                                                  071008
0094.01      C                     GOTO @OVER                                                071008
0094.02      C                     ELSE                                                      071008
0095.00      C                     MOVE MHPDSZ    MAPDNM                                     070927
0095.01      C                     ENDIF                                                     071008
0096.00      C           COCD      CHAINSLHCOLRA             60                              071008
0097.00      C           *IN60     IFEQ '1'                                                  071008
0097.01      C                     GOTO @OVER                                                071008
0097.02      C                     ELSE                                                      071008
0098.00      C                     MOVE LHCOAB    MACONM                                     070927
0098.01      C                     ENDIF                                                     071008
0098.02      C           *IN62     IFEQ '0'                                                  070928
0098.03      C           *IN61     ANDEQ'0'                                                  070928
0098.04      C           *IN60     ANDEQ'0'                                                  070928
0098.05      C                     MOVE WHCD      MAWHCD                                     071009
0098.06      C                     MOVE ITCD      MAITCD                                     070928
0098.07      C                     MOVE PDCD      MAPDCD                                     070928
0098.08      C                     MOVE COCD      MACOCD                                     070928
0098.09      C                     MOVE QUTA      MAAQTY                                     070928
0098.10      C                     MOVE QUTB      MABQTY                                     070928
0098.11      C                     MOVE QUTC      MACQTY                                     070928
0099.00      C                     ELSE                                                      071011
0100.00      C                     GOTO @OVER                                                070928
0101.00      C                     ENDIF                                                     070928
0101.01      C                     WRITESMADQMR                                              071008
0102.00      C           @OVER     TAG                                                       070928
0103.00      C                     ENDSR                                                     070928
0103.01       *                                                                              071008
0104.00       **************************************************************************     071008
0105.00       *  #ENDPG                                                                      071008
0106.00       **************************************************************************     071008
0106.01       *                                                                              071008
0107.00      C           #ENDPG    BEGSR                                                     071008
0108.00      C                     SETON                     LR                              071008
0109.00      C                     RETRN                                                     071008
0110.00      C                     ENDSR                                                     071008
        ****************** End of data ************************************************************
attitude

论坛徽章:
0
2楼 [报告]
发表于 2007-10-12 11:47 |只看该作者
现有三个表分别为SMLINAP、SMMINBP、SMNINCP（简称A，B，C表）和其相对应的LF文件，LF的关键字段分别为(MLITCD,MLPDCD,MLCOCD)
(MMITCD,MMPDCD,MMCOCD,MMWHCD)(MNITCD,MNPDCD,MNCOCD,MNWHCD).三个表中都有流通量M（X）CUQT字段，但A表MLCUQT字段的值是B表MMCUQT的
两条记录之和，C表对应仓库MNCUQT字段多条记录之和等于B表的对应仓库的MMCUQT字段记录,写一监控程序来检控流通量字段数据是否一致，
以上代码问题是取到的A表字段数据与实际不符，请各位帮忙看下。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
fxf_china

论坛徽章:
0
3楼 [报告]
发表于 2007-10-12 11:56 |只看该作者
求人不如求己，学会调试程序
STRISDB PGM(A) UPDPROD(*YES)
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
attitude

论坛徽章:
0
4楼 [报告]
发表于 2007-10-13 08:39 |只看该作者
搞定了
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
dz2114

论坛徽章:
0
5楼 [报告]
发表于 2007-10-13 16:16 |只看该作者
这是早期版本的rpg程序，怎么还用GOTO，没有看
顺便留言
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP