1
Type " Editar" en la consola de administración del sistema z/OS360 mainframe y pulse la tecla "Enter" para editar su programa COBOL.
2
Agregue la siguiente código a la sección " DIVISION dE DATOS " de su programa : . .
WORKING-STORAGE sECCIÓN
01 Z- PTR- 1 pic 9 ( 3 ) valor 0
01 Z- PTR- 2 pic 9 ( 3 ) El valor 0 .
01 Z -MAX- 1 pic 9 ( 3 ) El valor 0 .
01 Z -MAX- 2 pic 9 ( 3 ) valor 0 .
01 FIRST-BYTE pic 9 ( 3 ) valor 0 .
01 FINAL-BYTE pic 9 ( 3 ) valor 0 .
01 LENGTH-OF- STRING pic 9 ( 3 ) El valor 0 .
VINCULACIÓN SECCIÓN.
COPIA PASSJUST .
PROCEDURE DIVISION usando JUST- PASS -AREA .
realizar INICIALIZAR -FIELDS
realizar hasta Z- PTR- 1 > Z -MAX- 1
si JUST- SOURCE ( Z- PTR- 1 : 1 ) no = espacio