FPRMCP UF E DISK RENAME(RPRMCP:CPFIX) DARY S 768 DIM(1) C SETOFF 70 C *IN70 DOWEQ '0' C READ CPFIX 70 C 70 LEAVE C MOVEA CPFIX ARY C Z-ADD 0 IN 3 0 C 1 DO 768 IN C ARY(IN) IFLT X'40' C MOVE *BLANKS ARY(IN) C ENDIF C ENDDO C MOVEA ARY CPFIX C UPDATE CPFIX C CLEAR ARY C ENDDO C SETON LR
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.
Search400's targeted search engine: Get relevant information on RPG.
This was first published in January 2002