Add CODEPAGE parameter to avoid waring

Signed-off-by: Janos Varga <113785741+vargajb@users.noreply.github.com>

Author: vargajb

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB23C.jcl

@@ -3,7 +3,7 @@
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0
 //***************************************************/
-//COMPILE  EXEC DB2CBL,MBR=CBLDB23
+//COMPILE  EXEC DB2CBL,MBR=CBLDB23,PARM=('SQL,CODEPAGE(1047)')
 //BIND.SYSTSIN  DD *,SYMBOLS=CNVTSYS
  DSN SYSTEM(DBCG)
  BIND PLAN(&SYSUID) PKLIST(&SYSUID..CBLDB23) MEMBER(CBLDB23) -