Re: [EXTERNAL] Fwd: passing different data types field values from CL to RPG

[techie21 IT <techiei876@xxxxxxxxx>]

for example if fld3 value from CL is passed as '300' then in RPG it's
received as '?3?'

and for fld4 value from CL is passed as '18012021' then in RPG it's
received as '1?8?0?1?'.


Using the same data types and length giving this error for this statement
in CL program:-


CHGVAR  VAR(&SELT1) VALUE('L@CTCD *EQ "' || &CTCD  ||   +
                   ' " *AND  L@GMAB   * EQ  "' || &GMAB  || '" *AND +
  L@BRNO *EQ "' || &L@BRNO  ||  '"    *AND  +
         L@XMDT   * EQ  "'  || &W1DATE  || '"')

CPD0712   30 Operand does not have valid type of operator.
CPD0711   30  Operands in expression not same type.


&CTCD,&GMAB are fixed vales defined in CL program  &L@BRNO is being read
from a file which has brno defined as length 3 is decimal position as 0.
and field L@XMDT is having date field which below RPG program is sending to
CL program:-

dToday                      s                                  d
dPrevday                   s                                  d
C                             eval              today  =  %date()
c                             eval                Prevday  = Today  -
%Days(1)
c                             call                'DT6BK'
C                           PARM         Prevday
c                           seton
                                      lr

**************
CL:-

PGM   PARM(&PREVDAY)

DCL    VAR   (&PREVDAY)     TYPE (*CHAR)   LEN(10)
DCL     VAR  (&CTCD) TYPE *CHAR  LEN(2)   VALUE ('AB')
DCL    VAR   (&GMAB)   TYPE (*CHAR)  LEN(4) VALUE ('HJKL')
DCL    VAR    (&L@BRNO)  TYPE (*CHAR)   LEN(3)
DCL    VAR    (&L@XMDT)  TYPE (*CHAR)  LEN(8)
DCL    VAR(&SELT1)    TYPE(*CHAR)  LEN(175)
DCL    VAR (&W1DATE) TYPE(*CHAR)  LEN(8)
DCL  VAR(&P0QRY1  TYPE(*CHAR)  LEN(2)  VALUE('Q1')
DCL   VAR(&P0QRY2)  TYPE(*CHAR)  LEN(2)   VALUE(''Q2')
DCL   VAR(&P0QRY3)  TYPE (*CHAR) LEN(2)  VALUE('Q3')

DCLF  FILE(SSBRCPL)
READ:  RCVF
MONMSG  MSGID(CPF0864)   EXEC(GOTO  CMDLBL(END))
CHGVAR   VAR(&L@CTCD)  VALUE(&CTCD)
CHGVAR   VAR(&L@GMAB)  VALUE (&GMAB)
CHGVAR   VAR(&L@XMDT)   VALUE(&W1DATE)

CVTDAT  DATE(&PREVDAY)  TOVAR(&W1DATE)    FROMFMT(*ISO)    +
                              TOFMT(*DMYY)     TOSEP(*NONE)

CHGVAR    VAR(&L@XMDT)  VALUE (&W1DATE)

IF COND (&L@BRNO  *EQ   ' ') THEN(DO)
GOTO  CMDLBL(READ)
ENDDO

CHGVAR     VAR(&SELT1)  VALUE('L@CTCD   *EQ  "' || &CTCD  ||  +
                    ' "   *AND  L@GMAB   *EQ  "'  ||  &GMAB  || ' " *AND  +
                        L@XMDT  *EQ  "'   || &W1DATE  | ' "')

CHKOBJ  OBJ(QTEMP/BA@IMTP)  OBJTYPE(*FILE)
MONMSG       MSGID(CPF9801)   EXEC(DO)
CRTDUPOBJ   OBJ (BA@IMTP)  FROMLIB(*LIB)   OBJTYPE(*FILE)  +
                           TOLIB(QTEMP)  NEWOBJ(BA@IMTP)   CST(*NO)  +
                          TRG(*NO)   ACCTL(*NONE)

ENDDO

CALL  PGM(INBA071M)  PARM(&W1DATE  &P0QRY1)

OVRDBF   FILE(BA@IMTP)  TOFILE(QTEMP/BA@IMTP)  +
                   OVRSCOPE(*JOB)  SHARE(*YES)
OPNQRYF   FILE ((QTEMP/BA@IMTP))  OPTION(*ALL)  +
                        QRYSLT(&SELT1)   KEYFLD((L@CTCD)  (L@GMAB)  +
                     (L@BRNO))
CALL     PGM(BN91)    PARM(&L@CTCD  &L@GMAB  +
                &L@BRNO  &L@XMDT)
CLOF    OPNID(BA@IMTP)
DLTOVR   FILE(*ALL)  LVL (*JOB)
RCLRSC
CLRPFM   FILE(QTEMP/BA@IMTP)

CALL PGM(INBA071M)  PARM(&W1DATE   &P0QRY2)
CALL PGM (INBA071M) PARM(&W1DATE  &P0QRY3)

GOTO   CMDLBL(READ)
END:       ENDPGM



Thanks...

On Tue, Jan 19, 2021 at 7:12 PM Alan Shore via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> Hi
> When you say that field2 is a date field, are you saying that it is a
> field that represents a date (CHAR(6) or CHAR(8) depending on how the date
> is defined - MMDDYY or MMDDCCYY
> Or is it a TRUE date field (type L) - but you are passing it as character
> (char(10))
>
>
> Alan Shore
> E-mail : ASHORE@xxxxxxxx
> Phone [O] : (631) 200-5019
> Phone [C] : (631) 880-8640
> 'If you're going through hell, keep going.'
> Winston Churchill
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
> techie21 IT
> Sent: Monday, January 18, 2021 8:32 AM
> To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: [EXTERNAL] Fwd: passing different data types field values from CL
> to RPG
>
> Hi,
>
> I have two fields let's say fld1,fld2(date field) and having  their data
> types in CL program as Character but in RPG program they are as numeric so
> the problem is happening when we are passing these parameters from CL to
> RPG program for example if we pass fld2(having date value in it) to a RPG
> program then up on debug it's known that it captures some junk value and
> same happens for fld1( which is character in CL program) and when same is
> passed in RPG then it gets some junk value in it i have seen these junk
> values while debugging both the programs they are passed well from CL but
> the moment they come in RPG becomes junk values.how can we prevent this
> from happening?
>
> Any suggestions please?
>
>
> Thanks..
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list To post a
> message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
> change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com