编译出的几个30错误

sjbao

M e s s a g e   S u m m a r y                  
* QRG4112 Severity:  30   Number:    1                                 
          Message . . . . :   Field-Name previously defined with differe
            length. Specification line ignored.                        
* QRG5199 Severity:  30   Number:    1                                 
          Message . . . . :   The EXFMT Operation entry is not valid.   
            Specification ignored.                                      
* QRG6033 Severity:  30   Number:    1                                 
          Message . . . . :   Length of field from externally-described
            record is not same as prior definition.                     
* QRG7072 Severity:  30   Number:    3                             
          Message . . . . :   The KFLD type is not the same as the
            corresponding key field in file. Specification ignored.
找不出来了，问题是出在什么地方

kentnyg

最有可能就是你的DSPF的字段定义重复了

sjbao

5199的错误解决了，别的还是不行，看行！把程序发上来让大家给我指点一下吧！

  RPG程序：
   
     FCGIL01  IF  E           K        DISK
     FITHL01  IF  E           K        DISK
     FINVX54PMCF  E             99     WORKSTN
     FINVX54O O   E             99     PRINTER
     ISDS        SDS
     I                                      244 253 WSID
     I                                      254 263 #USER
     C****************************************************************
     C*                       MAIN PROGRAM
     C****************************************************************
     C*
     C           ITHK      KLIST
     C                     KFLD           #ITEM  15
     C                     KFLD           #CONT  10
     C           CGIK      KLIST
     C                     KFLD           #WHS    2
     C                     KFLD           #PERD   6
     C*
     C                     MOVELWSID      #WSID
     C                     MOVELUSER      #USER
     C*                    MOVELPGM       #PGM
     C                     EXFMTINVX5401
     C*
     C*                    EXFMTINVX5401
     C                     MOVELGPERD     #PERD
     C                     MOVELGWHSE     #WHS
     C*
     C           CGIK      SETLLCGIL01                   55
     C           *IN55     DOUEQ*IN90
     C                     READ CGIL01                   90
     C           GPROD     IFLE #ITEM
     C           GLOT      ANDLE#CONT
     C                     MOVELGPROD     #ITEM
     C                     MOVELGLOT      #CONT
     C                     ENDIF
     C*
     C*
     C                     Z-ADD*ZERO     #OPEN  113
     C                     Z-ADD*ZERO     #ISSU  113
     C                     Z-ADD*ZERO     #RECP  113
     C                     Z-ADD*ZERO     #ADJU  113
     C                     Z-ADD*ZERO     #CLOS  113
     C*
     C                     MOVELGOPB      #OPEN
     C                     MOVELGISSU     #ISSU
     C                     MOVELGRCT      #RECP
     C                     MOVELGADJU     #ADJU
     C           #OPEN     ADD  #RECP     #TMP2  113
     C           #TMP2     SUB  #ISSU     #TMP2
     C           #TMP2     ADD  #ADJU     #CLOS
     C*
CELARC                     Z-ADD*ZEROS    #TMP1  113
     C           ITHK      SETLLITHL01                   56
     C           *IN56     DOUEQ*IN57
     C                     READ ITHL01                   57
     C           TWHS      IFEQ 'C3'
     C           THTOWH    ANDNE'NULL'
     C           TWHS      ORNE 'NULL'
     C           THTOWH    ANDEQ'C3'
     C                     SETOF                         58
     C                     ELSE
     C                     SETON                         58
     C                     MOVELTPROD     #ITME
     C                     MOVELTLOT      #CONT
     C                     MOVEL'C3'      #WHS
     C                     MOVELTHCOM     #DMTR
     C                     MOVELTQTY      #XQTY
     C                     MOVELGCOST     #PRIC
     C                     Z-ADD*ZERO     #AMT   113
     C           #XQTY     MULT #PRIC     #AMT
     C                     Z-ADD#AMT      #AMOT
     C                     MOVELTTDTE     #TDAT
     C           *IN58     DOWEQ'0'
     C                     Z-ADDTQTY      #TMP   113
     C           #TMP      ADD  #TMP1     #TMP1
     C                     ENDDO
     C           #CLOS     IFEQ #TMP1
     C                     WRITEINVX54H1
     C                     ENDIF
     C                     ENDDO
     C                     ENDDO
     C                     SETON                     LR

sjbao

PRTF文件：

A          R INVX54H1
     A*%%***********************************************************************
     A*%%RI 00000
     A*%%***********************************************************************
     A                                      SPACEA(001)
     A            PGM           10A        1
     A            CONAME        40A       46
     A                                   101
     A                                      'USER'
     A            #USER         10A      106
     A                                   116
     A                                      DATE(*Y)
     A                                   123
     A                                      'PAGE:'
     A            #PAGE          4S      128
     A                                      EDTCDE(Z)
     A*                                     PAGNBR
     A                                      SPACEA(001)
     A                                    47
     A                                      'C3 ONHAND REPORT'
     A                                      SPACEB(001)
     A                                   101
     A                                      'WSID'
     A            #WSID         10A      106
     A                                   116
     A                                      TIME
     A                                      SPACEA(006)
     A                                    38
     A                                      'DMTR No'
     A                                    55
     A                                      'QTY ONHAND'
     A                                    70
     A                                      'U/PRICE'
     A                                     1
     A                                      'ITEM NUMBER'
     A                                    17
     A                                      'CONTROL No'
     A                                    33
     A                                      'WHS'
     A                                    86
     A                                      'AMOUNT'
     A                                   101
     A                                      'DATE'
     A                                    +7
     A                                      'DEPT'
     A*%%

sjbao

DSPF文件
A                                      DSPSIZ(24 80 *DS3)
     A*                                     DSPSIZ(24 80 *DS3)
     A*                                     CF03(03 'EXIT')
     A*                                     OVERLAY
     A          R INVX5401
     A*%%TS  SD  20060205  155122  ITBSJ       REL-V5R2M0  5722-WDS
     A            PGM           10A  O  1  2COLOR(BLU)
     A            WSID          10A  O  1 62
     A                                  1 73DATE
     A                                      EDTCDE(Y)
     A                                  2 73TIME
     A                                  2 27' Form Print'
     A                                      COLOR(BLU)
     A                                  4  5'Type Desired Report Type and Condi-
     A                                      tion, Press Enter'
     A                                  8 10'Facility'
     A            #USER          2A  O  8 32DSPATR(UL)
     A                                 10 10'Warehouse '
     A            #WHSE          2A  O 10 35DSPATR(UL)
     A                                 12 10'period'
     A            #PERD          6S 0O 12 32DSPATR(UL)
     A                                      DSPATR(PC)

19830120LJZ

变量#USER重复定义，在PRTF中是10A，而在DSPF中为2A。:em11:

[ 本帖最后由 19830120LJZ 于 2006-2-8 16:20 编辑 ]