H DEBUG DATEDIT(*YMD/)
FA O F 9999 DISK
D***************************************************************************
D* D E F I N E D A T A - S T R U C T U R E *
D***************************************************************************
D QDBFD DS
D KYIBYTRTN 10I 0
D KYIBYTAVL 10I 0
D KYIMAXLEN 5I 0
D KYIKYCNT 5I 0
D KYIRSRVD 10
D KYIFMTCNT 5I 0
D KYRRCDFMT 10
D KYRRSRVD1 2
D KYRNOKEY 5I 0
D KYRRSRVD2 14
D KYROFFSET 10I 0
D WHKEY 64 DIM(120)
D*
D QDBWHKEY DS
D KYINTFLD 10
D KYEXTFLD 10
D KYDTATYP 5I 0
D KYFLDLEN 5I 0
D KYDIGITS 5I 0
D KYDECPNT 5I 0
D KYATTR1 1
D KYALTLEN 5I 0
D KYALTNAM 30
D KYRSRVD1 1
D KYATTR2 1
D KYRSRVD2 1
D*
D DS
D FILLIB 20
D FILNAM 10 OVERLAY(FILLIB:*NEXT)
D LIBNAM 10 OVERLAY(FILLIB:*NEXT)
D*
D PBERR DS
D BYTPRV 10I 0 INZ(%SIZE(PBERR))
D BYTAVA 10I 0 INZ(0)
D ERRID 7
D ERR### 1
D INSDTA 128
D*
D LENDTA S 10I 0
D FMTNAM S 8 INZ('FILD0300')
D FMTTYP S 10
D II S 5 0
D OVRRID S 1
D PIFILE S 10
D PILIB S 10
D RCDFMT S 10
D RTNFIL S 20
D SYSTEM S 10
C***************************************************************************
C* DEFINITION MODULE ( PLIST FIELD KLIST )
C***************************************************************************
C*
C* DEFINE ENTRY
C*
C *ENTRY PLIST :
C PARM PIFILE :
C PARM PILIB :
C***************************************************************************
C* M A I N - R O U T I N E
C***************************************************************************
C MOVE PIFILE FILNAM ;
C MOVE PILIB LIBNAM ;
C*
C EXSR @DBRTVFD :
C*
C MOVE *ON *INLR ;
C RETURN ;
C***************************************************************************
C* S U B - R O U T I N E
C***************************************************************************
C*-------------------------------------------------------------------------*
C @DBRTVFD BEGSR :
C*-------------------------------------------------------------------------*
C EVAL LENDTA = %SIZE(QDBFD) :
C MOVEL '*FIRST' RCDFMT :
C*
C CALL 'QDBRTVFD' :
C PARM QDBFD :
C PARM LENDTA :
C PARM RTNFIL :
C PARM FMTNAM :
C PARM FILLIB :
C PARM RCDFMT :
C PARM *OFF OVRRID :
C PARM '*LCL' SYSTEM :
C PARM '*EXT' FMTTYP :
C PARM PBERR :
C*
C IF BYTAVA = 0
C*
C EXCEPT #DTA2 :
C*
C DO KYRNOKEY II :
C MOVEL WHKEY(II) QDBWHKEY :
C EXCEPT #DTA3 :
C ENDDO :
C*
C ENDIF
C*
C ENDSR :
O***************************************************************************
O* O U T P U T M O D U L E
O***************************************************************************
OA E #DTA2
O KYIBYTRTN
O KYIBYTAVL
O KYIMAXLEN
O KYIKYCNT
O KYIRSRVD
O KYIFMTCNT
O KYRRCDFMT
O KYRRSRVD1
O KYRNOKEY
O KYRRSRVD2
O KYROFFSET
O E #DTA3
O QDBWHKEY
|