Re: Maximum size for Varying length field

Bob,

Here are the parms I'm passing to QCMDEXC.

    D AS400CMD        S           1000A
    D CMDLENGTH       S             15P 5

Here are the program fields I'm populating to build the parm field
AS400CMD.
     D CMDPART1        C                   'SNDDST TYPE(*LMSG) TOINTNET(('
     D CMDPART2        C                   ')) DSTD('
     D CMDPART3        C                   ') LONGMSG('
     D CMDPART4        C                   ')'
     D EMAILSUBJ       S            100A   VARYING
     D EMAILBODY       S            500A   VARYING
      *
      /FREE

                EMAILSUBJ = 'Your Fax to' + '(' + %SUBST(P1FAXNBR:3:3) + ')' +
                             %SUBST(P1FAXNBR:6:3) + '-' + %SUBST(P1FAXNBR:9:4) +
                             ' Failed';

                EMAILBODY = 'Your Fax to' + '(' + %SUBST(P1FAXNBR:3:3) + ')' +
                             %SUBST(P1FAXNBR:6:3) + '-' + %SUBST(P1FAXNBR:9:4) +
                             ' Failed.  ' +
                             'Call the customer and ask if they have  '        +
                             'received the fax you had tried to send.  If not,'+
                             ' make sure the fax number is correct.  Then '    +
                             'resubmit the fax through the same program that ' +
                             'it was sent or detach the copies that were sent '+
                             'to your email address and print them out and '   +
                             'fax them manually.';

                AS400CMD = CMDPART1 + P1EMAIL + CMDPART2 +
                           EMAILSUBJ + CMDPART3 + EMAILBODY + CMDPART4;

CMDLENGTH = %LEN(%TRIM(AS400CMD));

      /END-FREE
      *
     C                   CALL      'QCMDEXC'     CMDPARMS

      *
     C     CMDPARMS      PLIST
     C                   PARM                    AS400CMD
     C                   PARM                    CMDLENGTH

The actual parameter fields aren't VARYING.  Only the EMAILSUBJ and
EMAILBODY fields.  The program keeps ending when it trys to build the
AS400CMD field.  Can anyone see why?

D CMDPART2        C                   ')) DSTD('''
D CMDPART3        C                   ''') LONGMSG('''
D CMDPART4        C                   ''')'