Parm defined at DS/Array confusion

I am confused, looking at some old programs.
I have a program called pgm0 that is called by three other programs, pgm1,
pgm2, and pgm3. The parms are confusing, specifically an amount parm (the
5th parm).
I am trying to wrap my head around the amtin parm (5th parm). In my mind
the length of the amtin is not the same as in the prams calling it.
Are all of those amount parms the same length in all programs?

This is the called program (pgm0) D spec of variable in question and the
entry parm.
All programs defined as RPGLE.
pgm0
Damtin DS
D AMTA 1 14s 2 Dim(2)
D AMTm2 1 7s 2
D AMTd2 8 14s 2

C *ENTRY PLIST
C PARM R
C PARM CLIENTin
C PARM rnumin
C PARM enumin
C PARM amtin
C PARM planyrin
C PARM CLAACD
C PARM CLAANB
C PARM REjauto
C PARM BATCHin
C PARM reviewerin
C PARM from
C PARM to

This is one of the programs that call pgm0. D spec of variable in question
and the call parms
pgm1
Diamt DS
D amta 7s 2 dim(4) inz(0)

dcl-pr CallPgm0 extpgm('PGM0') ;
p_Rejtype like(Rejtype);
p_client like(client);
p_irnum like(irnum);
p_ienum like(ienum);
p_iamt likeds(iamt);
p_epplanyear like(epplanyear);
p_abaacd like(abaacd);
p_abaanb like(abaanb);
p_rejauto like(rejauto);
p_inbat like(inbat);
p_as400user like(as400user);
p_from like(from);
p_todate like(todate);
end-pr;

This is the second of the programs that call pgm0. D spec of variable in
question and the call parms
pgm2
D AMT s 7s 2 Dim(2) inz(0)

C CALL 'PGM0'
*
C PARM 'I' R
*
C PARM CLIENT
*
C PARM rnum rnumin
*
C PARM enumi
*
c PARM AMT
*
C PARM PLYRds
*
C PARM BBAACD
*
C PARM BBAANB
*
C PARM 'DDR' rejauto
*
C PARM BATCH
*
C PARM reviewer
*
C PARM from
*
C PARM torejauto

This is the third of the programs that call pgm0. D spec of variable in
question and the call parms
pgm3
D iamt s 7s 2 Dim(8)

C CALL 'PGM0'
*
C PARM Rejtype
*
C PARM CLIENT
*
C PARM rnum
*
C PARM enumi
*
c PARM iamt
*
C PARM Planyear
*
C PARM aBAACD
*
C PARM aBAANB
*
C PARM rejauto
*
C PARM Inbat
*
C PARM reviewer
*
C PARM from
*
C PARM torejauto