From 4e95a416b7da3bd001936ac1338da4fa185e0f9d Mon Sep 17 00:00:00 2001
From: Yutaro Sakamoto <yutaro-sakamoto@yutaro-sakamoto.com>
Date: Fri, 27 Sep 2024 20:55:42 +0900
Subject: [PATCH] [Update]: improve varying.at

---
 tests/cobol_data.src/varying.at | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/cobol_data.src/varying.at b/tests/cobol_data.src/varying.at
index 5e89024..6fbb14d 100644
--- a/tests/cobol_data.src/varying.at
+++ b/tests/cobol_data.src/varying.at
@@ -54,6 +54,7 @@ AT_DATA([prog.cbl], [
       *    PERFORM DISPLAY-TEST-RESULT.
            PERFORM UNTIL SQLCODE NOT = ZERO
               DISPLAY EMP-NAME-ARR
+              MOVE IDX TO EMP-NAME-LEN
               EXEC SQL 
                   FETCH C1 INTO :EMP-NUM1, :EMP-NAME, :EMP-NUM2
               END-EXEC
@@ -193,15 +194,25 @@ Generate:ROLLBACK
 AT_CHECK([${COMPILE_MODULE} prog.cob])
 AT_CHECK([${RUN_MODULE} prog], [0],
 [A         @&t@
++00000001
 AB        @&t@
++00000002
 ABC       @&t@
++00000003
 ABCD      @&t@
++00000004
 ABCDE     @&t@
++00000005
 ABCDEF    @&t@
++00000006
 ABCDEFG   @&t@
++00000007
 ABCDEFGH  @&t@
++00000008
 ABCDEFGHI @&t@
++00000009
 ABCDEFGHIJ
++00000010
 ])
 
 AT_DATA([prog.cbl], [