关闭

关闭

封号提示

内容

首页 AS400公司内部招聘测试题.doc

AS400公司内部招聘测试题.doc

AS400公司内部招聘测试题.doc

上传者: 子清徐 2017-10-19 评分 5 0 192 26 871 暂无简介 简介 举报

简介:本文档为《AS400公司内部招聘测试题doc》,可适用于IT/计算机领域,主题内容包含AS公司内部招聘测试题测试题:一、环境要求:、在每个人自己的库下建立源文件TESTSRC用来存放程序与文件的源码、程序名:PGM姓名缩写文件名:FI符等。

AS公司内部招聘测试题测试题:一、环境要求:、在每个人自己的库下建立源文件TESTSRC用来存放程序与文件的源码、程序名:PGM姓名缩写文件名:FILE姓名缩写、所有目标均编译在自己的库下二、试题要求、现需要对某公司客户进行代发代扣金额处理文件为公司所有员工信息(已有数据)文件为代发代扣信息(已有数据)文件为代发代扣结果文件(需要建立并由程序写入数据)文件和文件的源码在LIBTESTSRCPF可以查询文件键字等信息。、使用文件:文件文件名:FILE字段名称类型长度备注部门编号,客户号,姓名,账户余额,,初始值不修改处理标志,未处理已处理无代发代扣信息文件文件名:FILE字段名称类型长度备注部门编号,客户号,操作类别,:代发:代扣代发代扣,,金额文件文件名:FILE姓名缩写字段名称类型长度备注部门编号,K客户号,K姓名,代发代扣,,金额账户余额,,最新余额操作日期,取系统日期操作人员本人姓名备注,“无代发代扣信息”、程序要求:)将LIBTEST下的文件FILE、FILE拷贝到自己的库里(包括数据)后续操作使用自己库下的文件。)建立文件FILE记录格式及字段名参照FILE和FILE的格式。)程序入口为部门编号(执行时或任选其一)。)将文件中符合条件的记录按文件中的数据进行处理结果写入文件并修改文件中的处理标志。)如代发代扣金额为则本次没有代发代扣在备注中写入“无代发代扣信息”)修改和写入文件要求使用事务控制(COMMIT)但程序中不加放COMMIT或ROLLBACK操作。FILE***************Beginningofdata********************************AUNIQUEARRECORDATEXT('文件,')AFDEPNOAACOLHDG('部门编号')ATEXT('部门编号')AFCUSNOAACOLHDG('客户号')ATEXT('客户号')AFNAMEOACOLHDG('姓名')ATEXT('姓名')AFBALSACOLHDG('金额')ATEXT('金额')AFFLAGAACOLHDG('处理标志')ATEXT('处理标志')A*未处理,已处理,无代发代扣信息AKFDEPNOAKFCUSNO******************Endofdata****************************************FILE***************Beginningofdata*************************************ARRECORDATEXT('文件,')AFDEPNOAACOLHDG('部门编号')ATEXT('部门编号')AFCUSNOAACOLHDG('客户号')ATEXT('客户号')AFTYPEAACOLHDG('操作类别')ATEXT('操作类别')A*代发代扣AFAMTSACOLHDG('代发代扣金额')ATEXT('代发代扣金额')AKFDEPNO******************Endofdata***************************************FILELQ***************Beginningofdata*************************************ARRECORDATEXT('文件')AFDEPNOAACOLHDG('部门编号')ATEXT('部门编号')AFCUSNOAACOLHDG('客户号')ATEXT('客户号')AFNAMEOACOLHDG('姓名')ATEXT('姓名')AFAMTSACOLHDG('代发代扣金额')ATEXT('代发代扣金额')AFBALSACOLHDG('金额')AFDATLCOLHDG('操作日期')ATEXT('取系统时间')AFPEPACOLHDG('操作人员')ATEXT('本人姓名')AFNOTACOLHDG('备注')ATEXT('备注')AKFDEPNOAKFCUSNO******************Endofdata****************************************PGMLQ***************Beginningofdata*************************************FFILEUFEKDISKCOMMITFFILEIFEKDISKFFILELQOEDISKCOMMITDDEPNOSAC**程序入口入号参数:DEPNOC*ENTRYPLISTCPARMDEPNOCCKFILEKLISTCKFLDFDEPNOCCKFILEKLISTCKFLDFDEPNOCKFLDFCUSNOC**遍历查询FILE中的每一个用户信息CEVALFDEPNO=DEPNOCKFILESETLLRECORDCKFILEREADERECORDCDOWNOTEOFCCLEARRECORD**根据FILE查询出的用户信息查找FILE表中操作类别**根据操作类别:代发:代扣无操作类别信息这三种情况**分别往FILELQ表中添加相应信息CCEVALFDEPNO=DEPNOCEVALFCUSNO=FCUSNOCKFILECHAINRECORDCIFFOUNDC**操作类别为,(代发)CIFFTYPE=''CIFFAMT=CEVALFDEPNO=DEPNOCEVALFCUSNO=FCUSNOCEVALFNAME=FNAMECEVALFAMT=FAMTCTIMEFDATCEVALFPEP='李奇'CEVALFNOT='无代发代扣信息'CWRITERECORDCEVALFFLAG=''CUPDATERECORDCCELSECCEVALFFLAG=''CEVALFDEPNO=DEPNOCEVALFCUSNO=FCUSNOCEVALFNAME=FNAMECEVALFAMT=FAMTCEVALFBAL=FBALFAMTCTIMEFDATCEVALFPEP='李奇'CWRITERECORDCEVALFFLAG=''CUPDATERECORDCENDIFCENDIFC**操作类别为,(代扣)CIFFTYPE=''CIFFAMT=CEVALFDEPNO=DEPNOCEVALFCUSNO=FCUSNOCEVALFNAME=FNAMECEVALFAMT=FAMTCTIMEFDATCEVALFPEP='李奇'CEVALFNOT='无代发代扣信息'CWRITERECORDCEVALFFLAG=''CUPDATERECORDCCELSECCEVALFDEPNO=DEPNOCEVALFCUSNO=FCUSNOCEVALFNAME=FNAMECEVALFAMT=FAMTCEVALFBAL=FBALFAMTCTIMEFDATCEVALFPEP='李奇'CWRITERECORDCEVALFFLAG=''CUPDATERECORDCENDIFCENDIFCCELSE**无操作类别CCEVALFDEPNO=DEPNOCEVALFCUSNO=FCUSNOCEVALFNAME=FNAMECEVALFAMT=FAMTCTIMEFDATCEVALFPEP='李奇'CEVALFNOT='无代发代扣信息'CWRITERECORDCEVALFFLAG=''CUPDATERECORDCENDIFCKFILEREADERECORDCENDDOCCSETONLR******************Endofdata****************************************

类似资料

该用户的其他资料

会销策划之产品进驻世博馆及书模揭幕仪式.doc

英国女王宠爱柯基70年-健康时报.doc

论知识产权侵权责任归责原则归.doc

龙虎门观后感.doc

利用ITS核酸序列分析鉴定海洋青霉菌.doc

职业精品

精彩专题

上传我的资料

精选资料

热门资料排行换一换

  • HYSYS模拟在换热器计算中的应…

  • MT4编程手册.pdf

  • 资本运作概论.ppt

  • 火针治疗的经验收集.doc

  • 初一数学特训班讲义.doc

  • 秦系文字+黎东明.pdf

  • 超越左与右—激进政治的未来.pdf

  • 【雅思7.5以上经验】63大页超…

  • 世界史年表.doc

  • 资料评价:

    / 7
    所需积分:0 立即下载

    意见
    反馈

    返回
    顶部