000010**************************************************************************
000020* Tvp ̋󔒂𔲂擾֐(LEN)
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       2000.4.20 Created by NEC Soft, Ltd.
000070*
000080*  {\[X́uEXPRESS5800 COBOL85(WindowsNT(TM))vgp
000090*    쐬Ă܂
000100**************************************************************************
000110 IDENTIFICATION DIVISION.
000120 PROGRAM-ID.    LEN.
000130 AUTHOR.        NEC Soft, Ltd.
000140 INSTALLATION.  NEC Soft, Ltd.
000150 DATE-WRITTEN.  00-04-20.
000160 DATE-COMPILED.
000170*
000180 ENVIRONMENT DIVISION.
000190 CONFIGURATION SECTION.
000200 SOURCE-COMPUTER.  EXPRESS5800.
000210 OBJECT-COMPUTER.  EXPRESS5800.
000220*
000230 DATA DIVISION.
000240 WORKING-STORAGE SECTION.
000250 01  WK-BUFFER.
000260     02  WK-CHAR     PIC  X(01)  OCCURS  1024.
000270 77  CHAR-COUNT      PIC  9(04).
000280*
000290 LINKAGE SECTION.
000300 77  PM-BUFFER       PIC  X(1024).
000310 77  PM-BUFSIZE      PIC  9(04).
000320 77  PM-LEN          PIC  9(04).
000330*
000340 PROCEDURE DIVISION  USING  PM-BUFFER  PM-BUFSIZE  PM-LEN.
000350 START-PROC.
000360     MOVE  PM-BUFFER   TO  WK-BUFFER.
000370     MOVE  PM-BUFSIZE  TO  CHAR-COUNT.
000380*
000390 LEN.
000400*    ̍Ōォ󔒂A󔒈ȊOɂȂI
000410     PERFORM  TEST  BEFORE  UNTIL  WK-CHAR(CHAR-COUNT) NOT = " "
000420         COMPUTE  CHAR-COUNT  =  CHAR-COUNT  -  1
000430         IF  CHAR-COUNT = 0
000440             THEN  GO TO  END-PROC
000450         END-IF
000460     END-PERFORM.
000470     MOVE  CHAR-COUNT  TO  PM-LEN.
000480*
000490 END-PROC.
000500     EXIT PROGRAM.
