Tweet
Hi, can you tell me what may cause this error: permanent i/o error occurred in file XXX.dspf ?
below is my dspf:
below is my dspf:
Code:
A DSPSIZ(24 080 *DS3)
A REF(*LIBL/PLST00PF)
A MSGLOC(24)
A PRINT
A CF02
A CF03
A CF04
A CF05
A CF06
A CF07
A CF08
A CF09
A CF10
A CF11
A CF12
A CF13
A CF14
A CF15
A CF16
A CF17
A CF18
A CF19
A CF20
A CF21
A CF22
A CF23
A CF24
A HELP
A ALTHELP(CA01)
4128cA HLPTITLE('faktury do środków -
4128cA trwałych - filtr')
JL01dA* HLPPNLGRP(PREVIEW PLST106HT)
A*
A*****************************************************************
A R DUMMY
A*****************************************************************
A KEEP
A RTNDTA
A ASSUME
A OVERLAY
A PUTOVR
A*
A 1 80
A ' '
A*
A*****************************************************************
A R FRAME
A*****************************************************************
A TEXT('ramka okna wyboru środków')
A PUTOVR
A CLRL(*NO)
A*
A XFRAME0001 68 O 2 7
A OVRDTA
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 8 7
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 8 9
A ' -
A '
JL01dA* OVRATR
A 01 DSPATR(RI)
A COLOR(PNK)
A 8 74
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 9 7
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 5 9
A ' -
A '
JL01dA* OVRATR
A 01 DSPATR(RI)
A COLOR(PNK)
A 9 74
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 10 7
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 10 9
A ' -
A '
JL01dA* OVRATR
A 01 DSPATR(RI)
A COLOR(PNK)
A 10 74
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 11 7
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 11 9
A ' -
A '
JL01dA* OVRATR
A 01 DSPATR(RI)
A COLOR(PNK)
A 11 74
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 12 7
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 12 9
A ' -
A '
JL01dA* OVRATR
A 01 DSPATR(RI)
A COLOR(PNK)
A 12 74
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 13 7
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 13 9
A ' -
A '
JL01dA* OVRATR
A 01 DSPATR(RI)
A COLOR(PNK)
A 13 74
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 14 7
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 14 9
A ' -
A '
JL01dA* OVRATR
A 01 DSPATR(RI)
A COLOR(PNK)
A 14 74
A ' '
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A XFRAME0002 68 O 16 7
A OVRDTA
JL01dA* OVRATR
A DSPATR(RI)
A COLOR(GRN)
A 3 9' -
A '
A 01 DSPATR(RI)
A COLOR(PNK)
A 6 9' -
A '
A 01 DSPATR(RI)
A COLOR(PNK)
A 4 74' '
A DSPATR(RI)
A COLOR(GRN)
A 3 74' '
A DSPATR(RI)
A COLOR(GRN)
A 3 7' '
A DSPATR(RI)
A COLOR(GRN)
A 4 7' '
A DSPATR(RI)
A COLOR(GRN)
A 4 9' -
A '
A 01 DSPATR(RI)
A COLOR(PNK)
A* OVRATR
A 9 9' -
A '
A 01 DSPATR(RI)
A COLOR(PNK)
A 7 9' -
A '
A 01 DSPATR(RI)
A COLOR(PNK)
A* OVRATR
A 7 7' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 6 7' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 5 7' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 7 74' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 6 74' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 5 74' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 15 7' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 15 74' '
A DSPATR(RI)
A COLOR(GRN)
A* OVRATR
A 15 9' -
A '
A 01 DSPATR(RI)
A COLOR(PNK)
JL01aA*
JL01aA*%%WB 11 REC
A*
A*****************************************************************
A R FILTER
A*****************************************************************
A*
A*****************************************************************
A TEXT('okno wyboru środka')
A RTNCSRLOC(&@FOCUR &@ZOCUR &@PRCUR)
A CSRLOC(@NULIG @NUCOL)
A PUTOVR
A CLRL(*NO)
A CHANGE(91)
A*
A*
A XFILTER001 5 O 4 20
A MSGID(DSC0260 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFILTER002 2 O 4 26
A MSGID(DSC0160 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFRACC2 R B 4 29
A REFFLD(ACC2)
A OVRDTA
JL01dA* OVRATR
A 40 DSPATR(PC)
A 41 DSPATR(RI)
A COLOR(WHT)
A XFILTER003 2 O 4 41
A MSGID(DSC0168 STMSG)
A OVRDTA
JL01dA* OVRATR
A XTOACC2 R B 4 44
A REFFLD(ACC2)
A OVRDTA
JL01dA* OVRATR
A 42 DSPATR(PC)
A 43 DSPATR(RI)
A COLOR(WHT)
A XFILTER004 14 O 5 11
A MSGID(DSC0161 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFILTER005 2 O 5 26
A MSGID(DSC0160 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFRDPR R -1 B 5 29
A REFFLD(DATA)
A OVRDTA
JL01dA* OVRATR
A EDTCDE(Y)
A 44 DSPATR(PC)
A 45 DSPATR(RI)
A COLOR(WHT)
A XFILTER006 2 O 5 41
A MSGID(DSC0168 STMSG)
A OVRDTA
JL01dA* OVRATR
A XTODPR R -1 B 5 44
A REFFLD(DATA)
A OVRDTA
JL01dA* OVRATR
A EDTCDE(Y)
A 46 DSPATR(PC)
A 47 DSPATR(RI)
A COLOR(WHT)
A XFILTER007 10 O 5 55
A MSGID(DSC0183 STMSG)
A OVRDTA
JL01dA* OVRATR
A COLOR(BLU)
A XFILTER008 5 O 6 20
A MSGID(DSC0166 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFILTER009 2 O 6 26
A MSGID(DSC0160 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFRGRUPA R B 6 29
A REFFLD(GRUPA)
A OVRDTA
JL01dA* OVRATR
A LOWER
A 48 DSPATR(PC)
A 49 DSPATR(RI)
A COLOR(WHT)
A XFILTER010 2 O 6 41
A MSGID(DSC0168 STMSG)
A OVRDTA
JL01dA* OVRATR
A XTOGRUPA R B 6 44
A REFFLD(GRUPA)
A OVRDTA
JL01dA* OVRATR
A LOWER
A 50 DSPATR(PC)
A 51 DSPATR(RI)
A COLOR(WHT)
A XFILTER011 6 O 7 19
A MSGID(DSC0184 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFILTER012 2 O 7 26
A MSGID(DSC0160 STMSG)
A OVRDTA
JL01dA* OVRATR
A XFRSTATUS R B 7 29
A REFFLD(STATST)
A OVRDTA
JL01dA* OVRATR
A EDTCDE(3)
A 52 DSPATR(PC)
A 53 DSPATR(RI)
A COLOR(WHT)
A XFILTER013 2 O 7 41
A MSGID(DSC0168 STMSG)
A OVRDTA
JL01dA* OVRATR
A XTOSTATUS R B 7 44
A REFFLD(STATST)
A OVRDTA
JL01dA* OVRATR
A EDTCDE(3)
A 54 DSPATR(PC)
A 55 DSPATR(RI)
A COLOR(WHT)
A XFILTER014 18 O 8 10
A MSGID(DSC0189 STMSG)
A OVRDTA
JL01dA* OVRATR
A XSPOSOBUZ R B 8 29
A REFFLD(STSLTC)
A OVRDTA
JL01dA* OVRATR
1175aA LOWER
A 56 DSPATR(PC)
A 57 DSPATR(RI)
A COLOR(WHT)
A XSPUDES R O 8 32
A REFFLD(SPUDES PLST22PF)
A OVRDTA
JL01dA* OVRATR
A COLOR(WHT)
A XFILTER015 15 O 8 55
A MSGID(DSC0264 STMSG)
A OVRDTA
JL01dA* OVRATR
A COLOR(BLU)
A*
A @FOCUR 10A H
A @ZOCUR 10A H
A @PRCUR 4S 0H
A @NULIG 3S 0H
A @NUCOL 3S 0H
4128aA 9 13'grupa towaru od'
A
. A 9 41'do'
A
A XFRSTGRAT R B 9 29REFFLD(STGRAT PLST60PF)
A OVRDTA
. A EDTCDE(3)
A DSPATR(PC)
. A* DSPATR(RI)
A COLOR(WHT)
. A XTOSTGRAT R B 9 44REFFLD(STGRAT PLST60PF)
A OVRDTA
. A EDTCDE(3)
A DSPATR(PC)
. A* DSPATR(RI)
4128aA COLOR(WHT)
A DOK1 1Y 0H
A DOK2 1Y 0H
A DOK3 1Y 0H
4128aA DOK4 1Y 0H
A SELTYP 2Y 0B 11 10MLTCHCFLD
A CHOICE(1 'Śr. bez faktur zakupu')
A CHCCTL(1 &DOK1)
A CHOICE(2 'Śr. bez faktur sprzedaży')
A CHCCTL(2 &DOK2)
A CHOICE(3 'Różnica wartości środka -
A do WO umowy')
A CHCCTL(3 &DOK3)
A CHOICE(4 'Ustalenie wartości środka -
A do faktur')
A CHCCTL(4 &DOK4)
A 10 10'Zestawienia do wyboru:'
JL01aA*
JL01aA*%%WB 11 REC CF03 CF04 CF12 HELP
JL01aA*%%WB 9 REC 3=Wyjście|4=Wybór|12=Powrót
JL01aA*
JL01aA*****************************************************************
JL01aA R WFILTER
JL01aA*****************************************************************
J
JL01aA TEXT('okno wyboru środka')
JL01aA WINDOW(4 7 13 64 *NOMSGLIN *RSTCSR)
JL01aA WDWBORDER((*COLOR GRN) -
JL01aA (*DSPATR RI) (*CHAR ' '))
JL01aA WDWTITLE((*TEXT &XWFILTER01) -
JL01aA *TOP)
JL01aA WDWTITLE((*TEXT &XWFILTER02) -
JL01aA *BOTTOM)
JL01aA*
JL01aA RTNCSRLOC(&@FOCUR &@ZOCUR &@PRCUR)
JL01aA CSRLOC(@NULIG @NUCOL)
JL01aA PUTOVR
JL01aA CLRL(*ALL)
JL01aA CHANGE(91)
JL01aA*
J
JL01aA*
JL01aA XFILTER001 5 O 2 12
JL01aA MSGID(DSC0260 STMSG)
JL01aA OVRDTA
JL01aA XFILTER002 2 O 2 18
JL01aA MSGID(DSC0160 STMSG)
JL01aA OVRDTA
JL01aA XFRACC2 R B 2 21
JL01aA REFFLD(ACC2)
JL01aA OVRDTA
JL01aA 40 DSPATR(PC)
JL01aA 41 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER003 2 O 2 33
JL01aA MSGID(DSC0168 STMSG)
JL01aA OVRDTA
JL01aA XTOACC2 R B 2 36
JL01aA REFFLD(ACC2)
JL01aA OVRDTA
JL01aA 42 DSPATR(PC)
JL01aA 43 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER004 14 O 3 3
JL01aA MSGID(DSC0161 STMSG)
JL01aA OVRDTA
JL01aA XFILTER005 2 O 3 18
JL01aA MSGID(DSC0160 STMSG)
JL01aA OVRDTA
JL01aA XFRDPR R -1 B 3 21
JL01aA REFFLD(DATA)
JL01aA OVRDTA
JL01aA EDTCDE(Y)
JL01aA 44 DSPATR(PC)
JL01aA 45 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER006 2 O 3 33
JL01aA MSGID(DSC0168 STMSG)
JL01aA OVRDTA
JL01aA XTODPR R -1 B 3 36
JL01aA REFFLD(DATA)
JL01aA OVRDTA
JL01aA EDTCDE(Y)
JL01aA 46 DSPATR(PC)
JL01aA 47 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER007 10 O 3 47
JL01aA MSGID(DSC0183 STMSG)
JL01aA OVRDTA
JL01aA COLOR(BLU)
JL01aA XFILTER008 5 O 4 12
JL01aA MSGID(DSC0166 STMSG)
JL01aA OVRDTA
JL01aA XFILTER009 2 O 4 18
JL01aA MSGID(DSC0160 STMSG)
JL01aA OVRDTA
JL01aA XFRGRUPA R B 4 21
JL01aA REFFLD(GRUPA)
JL01aA OVRDTA
JL01aA LOWER
JL01aA 48 DSPATR(PC)
JL01aA 49 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER010 2 O 4 33
JL01aA MSGID(DSC0168 STMSG)
JL01aA OVRDTA
JL01aA XTOGRUPA R B 4 36
JL01aA REFFLD(GRUPA)
JL01aA OVRDTA
JL01aA LOWER
JL01aA 50 DSPATR(PC)
JL01aA 51 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER011 6 O 5 11
JL01aA MSGID(DSC0184 STMSG)
JL01aA OVRDTA
JL01aA XFILTER012 2 O 5 18
JL01aA MSGID(DSC0160 STMSG)
JL01aA OVRDTA
JL01aA XFRSTATUS R B 5 21
JL01aA REFFLD(STATST)
JL01aA OVRDTA
JL01aA EDTCDE(3)
JL01aA 52 DSPATR(PC)
JL01aA 53 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER013 2 O 5 33
JL01aA MSGID(DSC0168 STMSG)
JL01aA OVRDTA
JL01aA XTOSTATUS R B 5 36
JL01aA REFFLD(STATST)
JL01aA OVRDTA
JL01aA EDTCDE(3)
JL01aA 54 DSPATR(PC)
JL01aA 55 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XFILTER014 18 O 6 2
JL01aA MSGID(DSC0189 STMSG)
JL01aA OVRDTA
JL01aA XSPOSOBUZ R B 6 21
JL01aA REFFLD(STSLTC)
JL01aA OVRDTA
1175aA LOWER
JL01aA 56 DSPATR(PC)
JL01aA 57 DSPATR(RI)
JL01aA COLOR(WHT)
JL01aA XSPUDES R O 6 25
JL01aA REFFLD(SPUDES PLST22PF)
JL01aA OVRDTA
JL01aA COLOR(WHT)
JL01aA XFILTER015 15 O 6 47
JL01aA MSGID(DSC0264 STMSG)
JL01aA OVRDTA
JL01aA COLOR(BLU)
JL01aA*
JL01aA @FOCUR 10A H
JL01aA @ZOCUR 10A H
JL01aA @PRCUR 4S 0H
JL01aA @NULIG 3S 0H
JL01aA @NUCOL 3S 0H
JL01aA*
JL01aA XWFILTER01 64A P
JL01aA XWFILTER02 64A P
4128aA 7 5'grupa towaru od'
A
A 7 33'do'
A
A XFRSTGRAT R B 7 21REFFLD(STGRAT PLST60PF)
A OVRDTA
A EDTCDE(3)
A DSPATR(PC)
A DSPATR(RI)
A COLOR(WHT)
A XTOSTGRAT R B 7 36REFFLD(STGRAT PLST60PF)
A OVRDTA
A EDTCDE(3)
A DSPATR(PC)
A DSPATR(RI)
4128aA COLOR(WHT)
A DOK1 1Y 0H
A DOK2 1Y 0H
A DOK3 1Y 0H
4128aA DOK4 1Y 0H
A SELTYP 2Y 0B 10 2MLTCHCFLD
A CHOICE(1 'Śr. bez faktur zakupu')
A CHCCTL(1 &DOK1)
A CHOICE(2 'Śr. bez faktur sprzedaży')
A CHCCTL(2 &DOK2)
A CHOICE(3 'Różnica wartości środka -
A do WO umowy')
A CHCCTL(3 &DOK3)
A CHOICE(4 'Ustalenie wartości środka -
A do faktur')
A CHCCTL(4 &DOK4)
A 9 2'Zestawienia do wyboru:'
JL01aA*
JL01aA*%%WB 11 REC CF03 CF04 CF12 HELP
JL01aA*%%WB 9 REC 3=Wyjście|4=Wybór|12=Powrót
A*
A*****************************************************************
A R ASKDS
A*****************************************************************
A TEXT('okno zapytania')
A WINDOW(21 005 2 071)
A OVERLAY
A PUTOVR
A*
A HLPCLR
A H HLPPNLGRP('ASKDS/PREVIEW' -
A PLST999HT)
A HLPARA(*NONE)
A H HLPPNLGRP('ASKDS/TAKNIE' -
A PLST999HT)
A HLPARA(*FLD TAKNIE)
A H HLPPNLGRP('ASKDS/FKEYS' -
A PLST999HT)
A HLPARA(02 001 02 071)
A*
A ASK 65 1 2
A MSGID(ASK &ASKNBR STMSG)
A OVRDTA
JL01dA* OVRATR
A COLOR(WHT)
A TAKNIE R B 1 70
A REFFLD(TAKNIE PLED00PF)
A OVRDTA
JL01dA* OVRATR
A COLOR(WHT)
A*
A ASKNBR 4 H TEXT('numer komunikatu pytania')
A*
A*****************************************************************
A R @MGSFL
A*****************************************************************
A SFL
A SFLMSGRCD(24)
A @MGKEY SFLMSGKEY
A @PGMQ SFLPGMQ
A*
A*****************************************************************
A R @MGCTL
A*****************************************************************
A*
A*****************************************************************
A SFLCTL(@MGSFL)
A SFLSIZ(2)
A SFLPAG(1)
A OVERLAY
A 10 SFLINZ
A SFLDSP
A SFLDSPCTL
A 09 SFLEND
A @PGMQ SFLPGMQ
A*
A*****************************************************************
Comment