QRG1033

The data area DFTHSPEC in library QRPG used to create the default-control specification required by RPG/400 does not have an H in position 6. The control specification is dropped, and a blank control specification is created.

Execute the command CHGDTAARA DTAARA(QRPG/DFTHSPEC (1 6)) VALUE('*****H'). Compile again.