When I run this in debugger (RDI) all the number fields have 4040404 value in them and the character field are blanks.
I also went to the green screen: STRSQL
and hard coded this:
SELECT * FROM @AAM WHERE AAMSEQ = 0000167
and that work and brought back the record.
I get no error messages.
I am calling this from a web page using Lotus Notes.
I am not sure what to do at this point.
**FREE
CTL-OPT NOMAIN OPTION (*SRCSTMT : *NODEBUGIO);
// To create the service program:
// CRTSRVPGM SRVPGM(BPCSO/PUR019WS)
// MODULE(BPCSO/PUR019W)
// SRCFILE(BPCSS/PURBNDF) SRCMBR(PUR019WB)
DCL-PR PUR019 EXTPROC(*DCLCASE);
*N PACKED(7:0);
*N CHAR(2);
END-PR;
DCL-PROC PUR019 EXPORT;
DCL-PI PUR019;
SEQ PACKED(7:0);
RSL CHAR(2);
END-PI;
DCL-DS purData;
AAMSEQ PACKED(7:0);
AAMPRC CHAR(10);
AAMGLN CHAR(20);
AAMAP1 CHAR(10);
AAMAP2 CHAR(10);
AAMSTS CHAR(1);
AAMCRB CHAR(10);
AAMDCR PACKED(8:0);
AAMTCR PACKED(6:0);
AAMMDB CHAR(10);
AAMDMD PACKED(8:0);
AAMTMD PACKED(6:0);
END-DS;
EXEC SQL SELECT AAMSEQ, AAMPRC, AAMGLN, AAMAP1, AAMAP2, AAMSTS, AAMCRB, AAMDCR, AAMTCR, AAMMDB,
AAMDMD, AAMTMD INTO urData
FROM @AAM
WHERE AAMSEQ = :SEQ;
RETURN;
END-PROC PUR019;
I also went to the green screen: STRSQL
and hard coded this:
SELECT * FROM @AAM WHERE AAMSEQ = 0000167
and that work and brought back the record.
I get no error messages.
I am calling this from a web page using Lotus Notes.
I am not sure what to do at this point.
**FREE
CTL-OPT NOMAIN OPTION (*SRCSTMT : *NODEBUGIO);
// To create the service program:
// CRTSRVPGM SRVPGM(BPCSO/PUR019WS)
// MODULE(BPCSO/PUR019W)
// SRCFILE(BPCSS/PURBNDF) SRCMBR(PUR019WB)
DCL-PR PUR019 EXTPROC(*DCLCASE);
*N PACKED(7:0);
*N CHAR(2);
END-PR;
DCL-PROC PUR019 EXPORT;
DCL-PI PUR019;
SEQ PACKED(7:0);
RSL CHAR(2);
END-PI;
DCL-DS purData;
AAMSEQ PACKED(7:0);
AAMPRC CHAR(10);
AAMGLN CHAR(20);
AAMAP1 CHAR(10);
AAMAP2 CHAR(10);
AAMSTS CHAR(1);
AAMCRB CHAR(10);
AAMDCR PACKED(8:0);
AAMTCR PACKED(6:0);
AAMMDB CHAR(10);
AAMDMD PACKED(8:0);
AAMTMD PACKED(6:0);
END-DS;
EXEC SQL SELECT AAMSEQ, AAMPRC, AAMGLN, AAMAP1, AAMAP2, AAMSTS, AAMCRB, AAMDCR, AAMTCR, AAMMDB,
AAMDMD, AAMTMD INTO urData
FROM @AAM
WHERE AAMSEQ = :SEQ;
RETURN;
END-PROC PUR019;
Comment