Comments on: AS/400 Record Count http://itknowledgeexchange.techtarget.com/itanswers/as400-record-count/ Sun, 19 May 2013 03:14:28 +0000 hourly 1 By: The Most-Watched IT Questions: March 15, 2011 - ITKE Community Blog http://itknowledgeexchange.techtarget.com/itanswers/as400-record-count/#comment-89412 The Most-Watched IT Questions: March 15, 2011 - ITKE Community Blog Tue, 15 Mar 2011 06:59:22 +0000 #comment-89412 [...] CharlieBrowne was on other side of the forums with his question on AS/400 record counts, and TomLiotta helped him out with some sample [...]

]]> By: tomliotta http://itknowledgeexchange.techtarget.com/itanswers/as400-record-count/#comment-88796 tomliotta Tue, 01 Mar 2011 01:41:18 +0000 #comment-88796 Maybe you do something like this: 
pgm

   dcl   &int         *int           value( 0 )
   dcl   &rtnmbr      *char   10
   dcl   &eom         *lgl           value( '0' )
   dcl   &nbrrcd      *dec (  10 0 ) value( 0 )

   rtvmbrd     toml/qclsrc +
                 mbr( *FIRSTMBR *SAME ) +
                 rtnmbr( &rtnmbr ) +
                 nbrcurrcd( &nbrrcd )

   dowhile ( *not &eom )

      sndpgmmsg msg( 'Counting' *bcat &rtnmbr )

      chgvar         &int                    ( &int + &nbrrcd )

      rtvmbrd  mylib/qclsrc +
                 mbr( &rtnmbr *NEXT ) +
                 rtnmbr( &rtnmbr ) +
                 nbrcurrcd( &nbrrcd )
      monmsg ( CPF3049 )  exec( chgvar  &eom  '1' )

   enddo

   return

endpgm

Does that make sense? Test the logic on something like MYLIB/QCLSRC. It seems to work, but I haven’t seriously tested it.

Tom

]]>