arghh Cobol!!! attchisszz , soy alérgico al polvo
Ya casi no recuerdo Cobol pero es muy difícil que encuentres las funciones Val() y Mid(), pero es posible que existan sus equivalentes.
O deberás crear en Cobol las funciones Val() y Mid() y luego te serviría el código de Alberto.
No te aflijas Val() y Mid() no son difíciles de implementar usando código simple.