Search results for query: *

Thanks for your tip Wim. Prakal

Here is sample of an LE callable service: Working storage: 01 CEE-CALL-INTERFACE. 02 WS-LILIAN-FMT PIC S9(9) BINARY. 02 WS-LILIAN-SEC COMP-2. 02 WS-GREG-FMT PIC X(17). 01 WS-FC. 02 WS-COND-TOKEN. COPY CEEIGZCT. 03 WS-ERROR-OUT...

In your TOR, issue command CEMT I CONN You will get results as shown below: Con(CICX) Net(AORNAME1) Con(CICY) Net(AORNAME2) Once you get your desiered Con name and AOR name, issue command CRTE SYSID=CICX This will route you into the AOR. Once you are in the AOR, issue command CEMT S...

You could check the field as shown below: If your_field NOT NUMERIC send error message or intialize your_field with zeros I hope this is what you were looking for. prakal

If you working in a mainframe environment and want to transmit a file as an attachment, you could use the below job; //STEP1 EXEC PGM=IEBGENER //* //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSUT2 DD SYSOUT=(M,SMTP) //SYSUT1 DD * HELO SYSA MAIL...

To elaborate on Frank's response: You could SUBmit the below job or use File tailoring in REXX to do the compression, //STEP1 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN DD DISP=SHR,DSN=YOUR.WANT.TO.COMPRESS.PDS //OUT DD DISP=SHR,DSN=YOUR.WANT.TO.COMPRESS.PDS //SYSUT3 DD...

If you are doing an unconditional copy, you could use; do i = 0 to JOBS.0 PARMS.I = JOBS.I end Prakal

Arungs, You are intializing PARMS. and then you start filling it up from 1 to JOB.0 using the DO I = 1 to JOB.0 statement. This DO statement fills up PARMS.1, PARMS.2 etc till PARMS.n where 'n' is the value of JOB.0. Your PARM.0 never got a value. This is the problem, you will have to...

To alloacte a member in a pds that already exists: "ALLOC DS("your.pds.name(member)") SHR FILE(ddname)" To delete a member in a pds: "DELETE 'your.pds.name(member)'" Do note that for the delete exclusive enq is required. Prakal

Changeman is a utility which is customized to cater to the client needs, so the intermediate steps(or screens) involved in compiling the program is installation dependent. Your friendly changeman administrator would be able to help you more with explanations regarding the intermediate steps...

Here is more information about ADPL, that you might want to give your system programmer. ADPL EXPLANATION: A server program has issued a command which is restricted in the distributed program link (DPL) environment. Certain API and CPI-RR requests, and the DL/I terminate request are not...