tipo " Modifica" nella console di gestione del sistema z/OS360 mainframe e premere il tasto " Enter" per modificare il programma COBOL .
2
Aggiungi la seguente codice alla sezione "DATA DIVISION " del vostro programma : . .
WORKING-STORAGE SECTION
01 Z - PTR - 1 pic 9 ( 3) valore 0
01 Z - PTR -2 pic 9 ( 3) il valore 0 .
01 Z - MAX - 1 pic 9 ( 3) il valore 0 .
01 Z - MAX -2 pic 9 ( 3) valore 0 .
01 FIRST-BYTE pic 9 ( 3) il valore 0 .
01 FINAL-BYTE pic 9 ( 3) il valore 0 .
01 LENGTH-OF- STRING pic 9 ( 3) il valore 0 .
ATTACCO SEZIONE .
COPY PASSJUST .
PROCEDURE DIVISION utilizzando solo -PASS - AREA .
eseguire INIZIALIZZARE - CAMPI
eseguire fino a Z - PTR - 1 > Z - MAX - 1
se just- SOURCE ( Z - PTR - 1 : 1 ) non = SPACE
se PRIMO - bYTE = 0
add Z - PTR - 1 a ZERO dando FIRST - bYTE
finale se
add Z - PTR - 1 a ZERO dando fINALE - bYTE
finale se
aggiungere 1 per Z - PTR - 1
finali eseguire
calcolare anzianità di STRING = FINAL - bYTE - PRIMO - bYTE + 1
GoBack .
RICHIESTA - SINISTRA .
aggiungere 1 a ZERO dando Z - PTR -2
mossa just- SOURCE ( PRIMO - bYTE : anzianità di STRING ) per
a just- TARGET ( Z - PTR - 2 : anzianità di STRING ) per
mossa ZERO per just- RISPONDERE
uscita .
3
tipo "Salva" sulla console e premere il tasto "Enter" per allineare il documento di testo a sinistra nel programma COBOL .
Programmazione © www.354353.com