Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1298629
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2010-06-05 09:18:11

Convert Case
Here is a sample of converting one paramter to lowercase using the current CCSID of the requesting job. The one value that would need changing is &DATASIZE and the LEN() of &PARM1 -- these two must match and represent the size of the variable to lowercase. To handle three input parameters simply vary the second and fourth parameters being passed to QLGCNVCS (Convert Case). PGM PARM(&PARM1) DCL VAR(&PARM1) TYPE(*CHAR) LEN(10) DCL VAR(&REQCTLBLK) TYPE(*CHAR) LEN(22) + VALUE(X'00000001000000000000000100000000000+ 000000000') /* Use Job CCSID to convert + input data to lowercase */ /* DCL VAR(&REQCTLBLK) TYPE(*CHAR) LEN(22) + VALUE(X'00000001000000000000000000000000000+ 000000000') */ /* Use Job CCSID to convert + input data to uppercase */ DCL VAR(&DATASIZE) TYPE(*DEC) LEN(2 0) VALUE(10) DCL VAR(&DATALEN) TYPE(*CHAR) LEN(4) CHGVAR %BINARY(&DATALEN) VALUE(&DATASIZE) CALL PGM(QLGCNVCS) PARM(&REQCTLBLK &PARM1 + &PARM1 &DATALEN 0) ENDPGM Thanks to Bruce Vining
阅读(959) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~