jcl | 易学教程

What's wrong with my C-code?

阅读更多关于 What's wrong with my C-code?

问题 Working in z/os mainframe, I have the following situation. I can't record a transaction. here is my code, it is written for transaction using jcl. Bur something goes wrong. /* Include standard C header files */ #include <ctype.h> #include <stdio.h> #include <stdlib.h> #include <string.h> /* Include WebSphere MQ API header file */ #include <cmqc.h> /* Boolean constants */ #define TRUE 1 #define FALSE 0 /* Function prototypes */ void displayUsage (char *programName); void displayMQError (char

how to automate jcl to run a cobol program on mainframe

阅读更多关于 how to automate jcl to run a cobol program on mainframe

问题 We have a COBOL batch program that we are able to execute manually from JCL. We want to automate this process so that it can execute every 15 minutes. Is there a way to automate the execution of a batch program on the mainframe? I'm a PC guy and I know in windows I can create a .BAT file and set it up in Task Scheduler to run every 15 minutes. I'm essentially trying to do the same thing on the mainframe. 回答1: Is there a way to automate the execution of a batch program on the mainframe? Yes.

FINDREP a short string with longer without overwriting next column

阅读更多关于 FINDREP a short string with longer without overwriting next column

问题 So I have a set of data such as this: mxyzd1 0000015000 mxyzd2 0000016000 xyzmd5823 0000017000 I need to use dfsort to get this data: 123xyzd1 0000015000 123xyzd2 0000016000 xyz123d5820000017000 So what I mean is: replace all character 'm' by '123' without overwriting the second column, so truncate data before you get to the second column (which starts at pos 11). So far I've been able to replace the data but can't prevent all of my data of getting shifted, this is my code so far: SYSIN DATA

How to get the Matching and Non-matching records from two input files in one step using SYNCSORT?

阅读更多关于 How to get the Matching and Non-matching records from two input files in one step using SYNCSORT?

问题 I have a requirement like below. -> I have 2 input files FILE1 and FILE2. -> Write the matching records into a FILE3. -> Write the Non matching records from FILE1 into FILE4. -> Write the Non matching records from FILE2 into FILE5. The key position in both the Input Files is (1,10). Can anybody please let me know the SORTCARD, how Can I get this in single step in SyncSort?? Thanks in Advance, Rajasekhar Jannu. 回答1: JOINKEYS FILE=F1,FIELDS=(01,10,A) JOINKEYS FILE=F2,FIELDS=(01,10,A) UNPAIRED

XML handling in REXX or JCL

阅读更多关于 XML handling in REXX or JCL

问题 In a PS file I have XML data as below: For ex: (<?xml version="1.0" encoding="UTF-8"?> <web-app xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://java.sun.com/xml/ns/javaee" xmlns:web="http://java.sun.com/xml/ns/javaee/web-app_2_5.xsd" xsi:schemaLocation="http://java.sun.com/xml/ns/javaee http://java.sun.com/xml/ns/javaee/web-app_3_0.xsd" id="WebApp_ID" version="3.0"> <display-name>onlinerecharge</display-name> <filter> <filter-name>struts2</filter-name> <filter-class>org

How to run dymanic SQL through IKJEFT01 Utility?

阅读更多关于 How to run dymanic SQL through IKJEFT01 Utility?

问题 How can we pass parameters in SQL query while executing IKJEFT01? Example: //UNLOAD EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(DB2X) RETRY(120) RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) - PARM('SQL') END //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=D //SYSREC00 DD DSN=FCSTN.AK.XXXXXX, // DISP=(NEW,CATLG,DELETE), //SYSPUNCH DD SYSOUT=* //SYSIN DD * SELECT * FROM ABC.DEF WHERE XYZ='999' /* Instead of giving value in sql query as '999' i want to pass the value through a

2、slf4j、log4j 和 common-logging的关系

阅读更多关于 2、slf4j、log4j 和 common-logging的关系

【推荐】2019 Java 开发者跳槽指南.pdf(吐血整理) >>> 前面有一篇日志中简单的介绍了 log4j，同时也介绍了它与commons-logging的关系，但是突然冒出来一个slf4j，并且slf4j有取代commons-logging的趋势，所以，我们可以推知slf4j与commons-logging的作用应该相差不大的。好，下面开始先讲讲slf4j。 1.slf4j 他只提供一个核心slf4j api(就是slf4j-api.jar包)，这个包只有日志的接口，并没有实现，所以如果要使用就得再给它提供一个实现了些接口的日志包，比如：log4j,common logging,jdk log日志实现包等，但是这些日志实现又不能通过接口直接调用，实现上他们根本就和slf4j-api不一致，因此slf4j又增加了一层来转换各日志实现包的使用，当然slf4j-simple除外。 slf4j+log4j组合使用模式： 1. slf4j-api-1.5.11.jar 2. slf4j-log4j12-1.5.11.jar 3. log4j-1.2.15.jar 4. log4j.properties(也可以是 log4j.xml) JCL+Log4J组合使用模式（即commons-logging+log4j）： 1. commons-logging-1.1.jar 2.

How to convert IBM file to hexadecimal using DFSORT?

阅读更多关于 How to convert IBM file to hexadecimal using DFSORT?

问题 I'm trying to pass a IBM file to hex values. With this input: H800 Would save this output in a file: 48383030 I tried by this way: //R45ORF80V JOB (EFAS,2SGJ000),'LLAMI',NOTIFY=R45ORF80, // MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A, // REGION=0M,TIME=5 //*--------------------------------------------------- //SORTEST EXEC PGM=ICEMAN //SORTIN DD DSN=LF58.DFE.V1408001,DISP=SHR //SORTOUT DD DSN=LF58.DFE.V1408001.OUT, // DISP=(NEW,CATLG,DELETE), // LRECL=4,DATACLAS=CDMULTI //SYSOUT DD SYSOUT=X //SYSPRINT

JCL error - “$HASP165 IBMUSERW ENDED AT SVSCJES2 - JCL ERROR CN(INTERNAL)”

阅读更多关于 JCL error - “$HASP165 IBMUSERW ENDED AT SVSCJES2 - JCL ERROR CN(INTERNAL)”

问题 I am trying to the utility DFHWS2LS to create a CICS Web service requester. The first step mentioned in the IBM redbooks or the guides is running this in a JCL. I face this issue on submitting the JCL. I am doing something wrong. Can't figure out what. Any help regarding this would be appreciated. //IBMUSERW JOB (),'WS2LS',MSGCLASS=A,NOTIFY=&SYSUID, // REGION=0M // SET QT='''' // JCLLIB ORDER=(IBMUSER.SAMPLE.JCLS) //JAVAPROC EXEC DFHWS2LS,REGION=0M, // PATHREF='/u', // TMPFILE=&QT.&SYSUID.&QT

comapare file1 with 12 file then copy the matched records one file and unmatch records other files using jcl

阅读更多关于 comapare file1 with 12 file then copy the matched records one file and unmatch records other files using jcl

问题 could you please help to get results for below requirement the file 1 having only 18 fixed length data to compare with file 2 if any matching records then copy the complete matching record from file 2 to output1 and the non-matching records from file 1 and file 2 to other output2 input1 file length 18 input2 file length 503 i have joined 12 files into single file like this STEP001 EXEC PGM=SORT SORTJNF1 DD DSN=XXX.Q.KR0Z2R99.XXXX.ISA.OUP(0),DISP=SHR SORTJNF2 DD DSN=xxx.P.K0101N00.xxxx11P1