aboutsummaryrefslogtreecommitdiff
path: root/gcc/cobol/udf/stored-char-length.cbl
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/cobol/udf/stored-char-length.cbl')
-rw-r--r--gcc/cobol/udf/stored-char-length.cbl4
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/cobol/udf/stored-char-length.cbl b/gcc/cobol/udf/stored-char-length.cbl
index 9ab3b14..66889d0 100644
--- a/gcc/cobol/udf/stored-char-length.cbl
+++ b/gcc/cobol/udf/stored-char-length.cbl
@@ -1,3 +1,6 @@
+ >> PUSH source format
+ >>SOURCE format is fixed
+
* This function is in public domain.
* Contributed by James K. Lowden of Cobolworx in August 2024
@@ -13,3 +16,4 @@
to Output-Value.
End Function STORED-CHAR-LENGTH.
+ >> pop source format \ No newline at end of file