Update QSHIFSSIZ.CMD

richardschoen · Jul 23, 2024 · ef3f396 · ef3f396
1 parent 50331f0
commit ef3f396
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/QSHIFSSIZ.CMD b/QSHIFSSIZ.CMD
@@ -1,11 +1,11 @@
              CMD        PROMPT('Retrieve IFS File Size')
              PARM       KWD(FILE) TYPE(*PNAME) LEN(256) PROMPT('IFS +
                           file name' 1)
-             PARM       KWD(SIZE) TYPE(*DEC) LEN(10) RTNVAL(*YES) +
-                          PROMPT('Return file size        (10 0)' 2)
-             PARM       KWD(ALLOCSIZE) TYPE(*DEC) LEN(10) +
+             PARM       KWD(SIZE) TYPE(*DEC) LEN(15) RTNVAL(*YES) +
+                          PROMPT('Return file size        (15 0)' 2)
+             PARM       KWD(ALLOCSIZE) TYPE(*DEC) LEN(15) +
                           RTNVAL(*YES) PROMPT('Return allocated +
-                          size   (10 0)' 3)
+                          size   (15 0)' 3)
              PARM       KWD(ESCONERROR) TYPE(*CHAR) LEN(4) +
                           RSTD(*YES) DFT(*YES) VALUES(*NO *YES) +
                           MIN(0) MAX(1) PROMPT('Escape error on not +