Sorry but I think that the screen was not included.
This is the content of .LST file.
* Micro Focus COBOL V2.2 revision 000 03-Oct-14 10:44 Page 1
* /MNG/DESA/VFUENTES/ATS/TST1F830.CBL
* Options: int("TST1F830.int") anim csi nolist verbose confirm CHECK endp
* list("TST1F830.lst")
1****Linea insertada automaticamente (MIGRA)
2$SET USE"/MNG/DESA/VCFG/VCDirecSQL.dir"
* 53-S************************************** ( 0)**
** Directive P invalid or not allowed here