|
Cause
- Requesting a batch report without a batch range
Example
- Go to AU (Accounts Payable Update)
- Option 3 (Transaction Processing)
- Option 3 (Print Proof)
Message ID . . . . . . : RNQ1221 Severity . . . . . . . : 99
Message type . . . . . : Inquiry
Date sent . . . . . . : 11/08/06 Time sent . . . . . . : 09:31:33
Message . . . . : Update or delete in file VMM without prior
input operation
(C G D F).
Cause . . . . . : RPG procedure AP009 in program CATPACLIB/AP009 at
statement 996 tried to update or delete a record in file VMM without a
previous input operation. The actual file is IBS400F/VMM(VMM).
Recovery . . . : Contact the person responsible for program maintenance to
determine the cause of the problem.
Possible choices for replying to message . . . . . . . . . . . . . . . :
D -- Obtain RPG formatted dump.
S -- Obtain system dump.
G -- Continue processing at *GETIN.
>> CALL PGM(CLAPP09J)
1300 - RTVJOBA USER(&USER)
2200 - CHGJOB SWS(10000000)
2400 - CALL PGM(CHKDAT)
2500 - RTVDTAARA DTAARA(*LDA (16 1)) RTNVAR(&ERR)
2900 - OPNQRYF FILE((PYHB)) QRYSLT('(CO# *EQ 01) *AND (VHSTC *EQ "U")
*AND (BCHNO *GE 031) *AND (BCHNO *LE 031)') KEYFLD((CO#) (VNDNR)
(VINVO)) OPNID(OPEN01) ALWCPYDTA(*OPTIMIZE)
Member PYHB file PYHB in IBS400F opened.
3800 - CPYFRMQRYF FROMOPNID(OPEN01) TOFILE(QTEMP/TMPPYHB) MBROPT(*ADD)
CRTFILE(*YES) FMTOPT(*NOCHK)
Physical file TMPPYHB created in library QTEMP.
Member TMPPYHB added to file TMPPYHB in QTEMP.
2 records copied from member PYHB.
[back to top]
4000 - CLOF OPNID(OPEN01)
Member PYHB file PYHB in IBS400F closed.
4200 - OVRDBF FILE(PYHB) TOFILE(QTEMP/TMPPYHB)
4400 - CALL PGM(AP026)
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
4500 - DLTOVR FILE(*ALL)
4600 - DLTF FILE(QTEMP/TMPPYHB)
Object TMPPYHB in QTEMP type *FILE deleted.
4900 - RTVDTAARA DTAARA(*LDA (16 1)) RTNVAR(&OUTBAL)
5300 - CALL PGM(AP009)
Open of member GLD was changed to SEQONLY(*NO).
1000 - CVTDAT DATE('010106') TOVAR(&CYMD) FROMFMT(*MDY) TOFMT(*CYMD)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('110806') TOVAR(&CYMD) FROMFMT(*MDY) TOFMT(*CYMD)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
4500 - DLTOVR FILE(*ALL)
4600 - DLTF FILE(QTEMP/TMPPYHB)
Object TMPPYHB in QTEMP type *FILE deleted.
4900 - RTVDTAARA DTAARA(*LDA (16 1)) RTNVAR(&OUTBAL)
5300 - CALL PGM(AP009)
Open of member GLD was changed to SEQONLY(*NO).
1000 - CVTDAT DATE('010106') TOVAR(&CYMD) FROMFMT(*MDY) TOFMT(*CYMD)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('110806') TOVAR(&CYMD) FROMFMT(*MDY) TOFMT(*CYMD)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
1000 - CVTDAT DATE('1061108') TOVAR(&MDY) FROMFMT(*CYMD) TOFMT(*MDY)
TOSEP(*NONE)
- RETURN /* RETURN due to end of CL program */
Operation sequence for member VMM not valid. (C I)
? I
Operation sequence for member VMM not valid. (C I)
? I
Update or delete in file VMM without prior input operation.
Function check. RNX1221 unmonitored by AP009 at statement 0000000996,
instruction X'0000'.
Update or delete in file VMM without prior input operation (C G D F).
[back to top]
| 
