JUSTIFIED RIGHT
Publicado por ElVinoFalta (36 intervenciones) el 08/10/2018 16:43:24
Este posting es para vos Irene:
clausula: "JUSTIFIED RIGHT"
definir en Working:
En Procedure:
a)
Si haces un MOVE en HarCode es asi:
b) moviendo desde otra Variable.
Y Listo
Saldos
clausula: "JUSTIFIED RIGHT"
definir en Working:
1
2
3
4
03 CONTAD PIC 9(02) VALUE 0.
03 WHASTA PIC 9(02) VALUE 0.
03 OM-STORE PIC X(15) VALUE "780,22".
03 VM-STORE PIC X(15) JUSTIFIED RIGHT VALUE SPACES.
En Procedure:
a)
Si haces un MOVE en HarCode es asi:
1
2
3
MOVE "89,22" TO VM-STORE.
INSPECT VM-STORE REPLACING ALL " " BY "0".
Display VM-STORE.
b) moviendo desde otra Variable.
1
2
3
4
5
6
MOVE 0 TO CONTAD.INSPECT OM-STORE TALLYING CONTAD FOR TRAILING SPACE.
COMPUTE WHASTA = 15 - CONTAD.
MOVE OM-STORE(1:WHASTA) TO VM-STORE.
INSPECT VM-STORE REPLACING ALL " " BY "0".
Display VM-STORE.
Saldos
Valora esta pregunta
0