fastpho, usa los Tag-s de resalto de sintaxis como lo dicen las normas del foro (enlace en mi firma):
[Información] "No sé dónde y cómo publicar posts..." - COBOL Foro
En cuanto al código VB que has citado, me parece que te has liado. Estamos hablando de 1 byte cada vez, con lo cual el siguiente
Código VB:
sCmd = Chr$(&H0) + Chr$(&H1)
sCmdExt = Chr$(&HC) + Chr$(&H0)
En COBOL equivale a:
Código COBOL:
01 sCmd PIC X(2) VALUE X'0001'.
01 sCmdExt PIC X(2) VALUE X'0C00'.
Es decir, que cada valor mencionado en VB se ubique en 1 byte, dando así el conjunto de resultado de llamada de las 2 funciones Chr$ daría un String de un total de 2 bytes.
Haz las modificaciones correspondientes según el ejemplo que te he dado, pruébalo y nos cuentas.