Date Validation How to validate date as per ISO and USA format in CBLLE?
How to validate date as per ISO and USA format in CBLLE?
How to validate date as per ISO and USA format in CBLLE?
285 pts.
"." in file name in COBOL
I have a file "P.FILE". I want to define it in COBOL, eg, SELECT PFILE ASSIGN TO P.FILE, but the compiler won't accept it as it uses the period to mark the end-of-statement. I can't rename or override the file name, it has to be P.FILE. Any solutions would be greatly appreciated.
I have a file "P.FILE". I want to define it in COBOL, eg, SELECT PFILE ASSIGN TO P.FILE, but the compiler won't accept it as it uses the period to mark the end-of-statement. I can't rename or override the file name, it has to be P.FILE. Any solutions would be greatly appreciated.
"GET DIAGNOSTICS" SQL Procedure
I am currently writing an SQLCBLLE Program on a V5R2 box. I would like to use the SQL Procedure "GET DIAGNOSTICS", however each time I enter it into my code the both SEU and the compiler complain about it. I receive the message GET was not expected. I know the procedure was supported in V5R2 but...
I am currently writing an SQLCBLLE Program on a V5R2 box. I would like to use the SQL Procedure "GET DIAGNOSTICS", however each time I enter it into my code the both SEU and the compiler complain about it. I receive the message GET was not expected. I know the procedure was supported in V5R2 but...
Need a COBOL QMHRTVM Example
Does anyone have a code snippet they would be willing to share that demonstrates the parameter setup and the call for the API QMHRTVM? I am lousy with API's but I need to incorporate this one into two of my SQLCBLLE Programs.
Does anyone have a code snippet they would be willing to share that demonstrates the parameter setup and the call for the API QMHRTVM? I am lousy with API's but I need to incorporate this one into two of my SQLCBLLE Programs.
How do you end a cobol program that calls a menu(cl)?
I have a menu that calls another menu. Before the first menu calls the second menu it calls a cobol program which reads a table to verify that the user attempting to access the second menu has authority to the second menu. If the user has authority to the second menu, the cobol program calls the...
I have a menu that calls another menu. Before the first menu calls the second menu it calls a cobol program which reads a table to verify that the user attempting to access the second menu has authority to the second menu. If the user has authority to the second menu, the cobol program calls the...
SQL DB2 COBOL date reformatting
Hi and thanks in advance, I want to use DB2 SQL in COBOL to reformat a date from CCYY-MM-DD to MM-DD-YY. What is the simplest and most efficient way to do this? Christy
Hi and thanks in advance, I want to use DB2 SQL in COBOL to reformat a date from CCYY-MM-DD to MM-DD-YY. What is the simplest and most efficient way to do this? Christy
Embedded SQL in a Cobol program using a sub-select in the select clause
The following works fine in SQLPLUS: SELECT SOVLCUR_PIDM INTO :STDN-PIDM FROM SOVLCUR WHERE SOVLCUR_PIDM = :HOLD-STU-PIDM AND SOVLCUR_LEVL_CODE = 'UG' AND SOVLCUR_LMOD_CODE = ...
The following works fine in SQLPLUS: SELECT SOVLCUR_PIDM INTO :STDN-PIDM FROM SOVLCUR WHERE SOVLCUR_PIDM = :HOLD-STU-PIDM AND SOVLCUR_LEVL_CODE = 'UG' AND SOVLCUR_LMOD_CODE = ...
Batch Job Ends without Calling Program on AS/400 V5R2M0
Hi all, I have a batch job 'JOB1' which should execute a command CALL LIB1/PGM1.Here PGM1 is CL Program. I want to debug PGM1. I submitted thru SBMJOB JOB(JOB1) HOLD(*YES) CURLIB(LIB1). All other are default values for SBMJOB. I did STRSRVJOB & STRDBG. When I released Job, I set Break Point at...
Hi all, I have a batch job 'JOB1' which should execute a command CALL LIB1/PGM1.Here PGM1 is CL Program. I want to debug PGM1. I submitted thru SBMJOB JOB(JOB1) HOLD(*YES) CURLIB(LIB1). All other are default values for SBMJOB. I did STRSRVJOB & STRDBG. When I released Job, I set Break Point at...
Send a parameter from COBOL to RBG?
A Search400.com reader sent in this question: My question is how to send a parameter from COBOL program to program written in RBG. I know how to send parameter within two COBOL programs but how do I send from COBOL to RBG?
A Search400.com reader sent in this question: My question is how to send a parameter from COBOL program to program written in RBG. I know how to send parameter within two COBOL programs but how do I send from COBOL to RBG?
Is there a process in COBOL to flush an output buffer so my I/o is in sync for restartability?
Is there a process in COBOL to flush an output buffer so my I/o is in sync for restartability? I need to ensure the data in the output buffer has been written to the output device prior to doing an MQ Commit.
Is there a process in COBOL to flush an output buffer so my I/o is in sync for restartability? I need to ensure the data in the output buffer has been written to the output device prior to doing an MQ Commit.
COBOL TGT At Run Time
Is it possible to get access to the Cobol Task Global Table at run time in batch and cics (Enterprise Cobol for zOS)? I understand that using register 13 you can get access to the DSA, and using the DSA you can get access to the TGT, but I don't know how to get access to register 13 from Cobol. ...
Is it possible to get access to the Cobol Task Global Table at run time in batch and cics (Enterprise Cobol for zOS)? I understand that using register 13 you can get access to the DSA, and using the DSA you can get access to the TGT, but I don't know how to get access to register 13 from Cobol. ...
open a green screen from a java application
We have a java application running on websphere and on click of a button in the browser based application, we need to open a 5250 session and open an inquiry application written in COBOl? We are not sure as how to achieve this. Any help is greatly appreciated...
We have a java application running on websphere and on click of a button in the browser based application, we need to open a 5250 session and open an inquiry application written in COBOl? We are not sure as how to achieve this. Any help is greatly appreciated...
To extract numbers in given input in cobol
hi, I m eniyan. I want to how to extract the numbers in given inputs.Inputs can be ting,special characters also in cobol .Could you please help me
hi, I m eniyan. I want to how to extract the numbers in given inputs.Inputs can be ting,special characters also in cobol .Could you please help me
System Date in COBOL/400
How to get the system date in the format of CCYYMMDD(*ISO) or MMDDCCYY(*USA) same like RPG400? Can anyone pls help?
How to get the system date in the format of CCYYMMDD(*ISO) or MMDDCCYY(*USA) same like RPG400? Can anyone pls help?
Calling QMF interactive from COBOL programs in CICS regions
We have a call to QMF from all the screen in the application. We also has QMF report generation from onlines where users enter the details in onlines which is passed to QMF proc and report is shown to them on QMF screen. Once user is done with QMF queries/reports and presses PF3 he/she returns...
We have a call to QMF from all the screen in the application. We also has QMF report generation from onlines where users enter the details in onlines which is passed to QMF proc and report is shown to them on QMF screen. Once user is done with QMF queries/reports and presses PF3 he/she returns...
in what direction should i work
i did degree in electronics and communication after that i did job in sofware company for 8 months as assistant system engineer with cobol, sql technology. i have basic knowledge of c, cobol, sql and html. what kind of job should i search, i need one more suggestion that in which field i should go...
i did degree in electronics and communication after that i did job in sofware company for 8 months as assistant system engineer with cobol, sql technology. i have basic knowledge of c, cobol, sql and html. what kind of job should i search, i need one more suggestion that in which field i should go...
COBOL Compute statement
How do I specify in COBOL the following arithmetic expression to calculate the value of Y. Y = 1 / (1 + exp(-X)) where exp(-X) is the exponentiation of the negative value of X and X is any numeric value.
How do I specify in COBOL the following arithmetic expression to calculate the value of Y. Y = 1 / (1 + exp(-X)) where exp(-X) is the exponentiation of the negative value of X and X is any numeric value.
Example of Enterprise COBOL generated assembler listing for demo programs
Can you point me to website or download area or just send generated assembler listing for Enterprise COBOL demo program such as: DISPLAY "HELLO WORLD" STOP RUN I'd also like to find other demo program assembler listings that perform simple functions for use in learning assembler...
Can you point me to website or download area or just send generated assembler listing for Enterprise COBOL demo program such as: DISPLAY "HELLO WORLD" STOP RUN I'd also like to find other demo program assembler listings that perform simple functions for use in learning assembler...
How READ a QSAM File in an online COBOL Programm ?
We need to READ some PARM in a Online (IMS) Application/Transaction. We want to use a TSO File (QSAM) to READ several records and define an internal table (array). Is it possible to READ QSAM from an online Programm ? How to do it ? As long as the transaction is on, the content doesn't have to be...
We need to READ some PARM in a Online (IMS) Application/Transaction. We want to use a TSO File (QSAM) to READ several records and define an internal table (array). Is it possible to READ QSAM from an online Programm ? How to do it ? As long as the transaction is on, the content doesn't have to be...
