zoukankan      html  css  js  c++  java
  • 将小写转化成大写

    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    H DftActGrp(*No) Option(*SrcStmt : *NoDebugIO)
    *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    * Program Name:
    * Description :
    * Date Written:
    * Modification:
    * ~~~~~~
    *
    *
    *
    *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    FINBOX if e k disk prefix(x)
    *
    *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    *
    * Program Information
    * ~~~~~~~~~~
    D @PgmInfo sds
    D @PgmNam 1 10
    D @Parms 37 39 0
    D @MsgId 40 46
    D @MsgDta 91 170
    D @JobNam 244 253
    D @UserId 254 263
    D @JobNum 264 269 0
    *
    * Constants
    * ~~~~~
    D UpperCase C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
    D LowerCase C 'abcdefghijklmnopqrstuvwxyz'
    *
    * Define Variables
    * ~~~~~~~~
    D XMLField s 1000 inz(*blanks)
    *
    *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    * M A I N L I N E
    *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    *
    C eval *inlr = *on
    C return
    *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    *
    *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    C *inzsr begsr
    *
    C read INBOX
    C dow not %eof(INBOX)
    *
    C eval XMLField = %xlate(LowerCase : UpperCase :
    C %trim(xSRCDTA))
    *
    C read INBOX
    C enddo
    *
    C endsr

  • 相关阅读:
    软件测试的方法
    常用的adb
    正则表达式
    Python学习笔记(九)————进程和线程
    CodeForces
    华为FusionSphere openstack安装
    华为FusionCompute单节点安装教程--VRM主机的安装
    华为FusionCompute单节点安装教程--CNA主机的安装
    华为FusionSphere--存储管理
    华为FusionSphere--架构介绍
  • 原文地址:https://www.cnblogs.com/wildfish/p/1031976.html
Copyright © 2011-2022 走看看