CL/400 CRTLF
while creating an object for a logical file we will use in CL/400 CRTLF FILE(library/logical-file-member) SRCFILE(SARKNS/FIVE) But I need to give the logical-file-member name as a field like this pgm Dcl var(&var1) type(*char) len(10) chgvar var(&var1)...
while creating an object for a logical file we will use in CL/400 CRTLF FILE(library/logical-file-member) SRCFILE(SARKNS/FIVE) But I need to give the logical-file-member name as a field like this pgm Dcl var(&var1) type(*char) len(10) chgvar var(&var1)...
90 pts.
Keyed Data Queue
Hello, Can any one help me by providing a sample CL program to add and retrieve data from a keyed Data Queue? Please see the below mentioned CL program I am getting “CPF3C36” error. Can any one help me in this regards? PGM ...
Hello, Can any one help me by providing a sample CL program to add and retrieve data from a keyed Data Queue? Please see the below mentioned CL program I am getting “CPF3C36” error. Can any one help me in this regards? PGM ...
OPNQRYF
DCLF FILE(LIBRARY/DISPLAY) START: SNDRCVF RCDFMT(REC) WAIT(*YES) IF COND(&IN03 *EQ '1') THEN(DO) GOTO CMDLBL(END) ENDDO IF COND(&ENQQUA1 *EQ ' ') THEN(DO) GOTO CMDLBL(START) ENDDO IF COND(&ENQQUA1 *NE *BLANKS) THEN(DO) OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) + QRYSLT('&ENQQUA *EQ ''' *CAT...
DCLF FILE(LIBRARY/DISPLAY) START: SNDRCVF RCDFMT(REC) WAIT(*YES) IF COND(&IN03 *EQ '1') THEN(DO) GOTO CMDLBL(END) ENDDO IF COND(&ENQQUA1 *EQ ' ') THEN(DO) GOTO CMDLBL(START) ENDDO IF COND(&ENQQUA1 *NE *BLANKS) THEN(DO) OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) + QRYSLT('&ENQQUA *EQ ''' *CAT...
CPYSPLF from one profile to another
Is there a command thru which we can copy the spool file from one profile to other?
Is there a command thru which we can copy the spool file from one profile to other?
CL/400 program for copying files
regarding as/400. I need to create a CL program for copying all files from HWMSFMODS(library) to HEXPFMODS(library). we are suppose to clear all data in from files. Please advice...
regarding as/400. I need to create a CL program for copying all files from HWMSFMODS(library) to HEXPFMODS(library). we are suppose to clear all data in from files. Please advice...
Inside a running CL program can you find the lib that the program is running from?
Can you find in a running CL program the lib that it was started from? For example in a C program you can get the library name from argv[0].
Can you find in a running CL program the lib that it was started from? For example in a C program you can get the library name from argv[0].
Unable to over ride a PF member
Hi, I made a cl program and in it I over ride a pf member, clrpfm then call my rpgle program. I can't write on my member but instead it writes on the primary member and reads it. seems the member that is used is the the primary member and not the member that I over rides.
Hi, I made a cl program and in it I over ride a pf member, clrpfm then call my rpgle program. I can't write on my member but instead it writes on the primary member and reads it. seems the member that is used is the the primary member and not the member that I over rides.
CL/400 command for Exit Point or Exit Programs
please advice any CL command is there for finding the information regarding exit points and exit programs.
please advice any CL command is there for finding the information regarding exit points and exit programs.
OPNQRYF
I have 4-fileds on Display File like frdiv(zoned),todiv(zoned),frpr(char),topr(char) all the fields are of size 2 only. I am using a "OPNQRYF" to filter the records froma Physical file (pfdiv), it containes 1,25,000 records . Through this openqryf all the selected records I will copy to a file...
I have 4-fileds on Display File like frdiv(zoned),todiv(zoned),frpr(char),topr(char) all the fields are of size 2 only. I am using a "OPNQRYF" to filter the records froma Physical file (pfdiv), it containes 1,25,000 records . Through this openqryf all the selected records I will copy to a file...
CL/400 - How to convert Spool file to Notepad
Hello Friends, I have a question. In my current project, I have to covert a spool file to notepad and this notepad I have to send it as an attachment to one email address. Question 1: How can I convert spool file to notepad? Question 2: How can I send a notepad as attachment to one email...
Hello Friends, I have a question. In my current project, I have to covert a spool file to notepad and this notepad I have to send it as an attachment to one email address. Question 1: How can I convert spool file to notepad? Question 2: How can I send a notepad as attachment to one email...
How to check if email option is enabled on a AS/400 server
How to check if email option is enabled on a AS400 server
How to check if email option is enabled on a AS400 server
Send a break message to multiple users
How to send a break message to multiple users.SNBRKMSG has the option to send it only to worksations.
How to send a break message to multiple users.SNBRKMSG has the option to send it only to worksations.
ALCOBJ scope
I want to allocate the dataarea by using ALCOBJ command and i am confused the in selecting the scope. Can anyone explain me abt the difference betwwen JOB scope and THREAD scope in details ?
I want to allocate the dataarea by using ALCOBJ command and i am confused the in selecting the scope. Can anyone explain me abt the difference betwwen JOB scope and THREAD scope in details ?
Problem with delimiter in CPYTOIMPF
I have used pipe symbol | as the delimiter to seperate fields.I used this in a DS and moved it to a flat file.From the flat file CPYTOIMPF was used to created a text file and ftpd.The problem is that the | symbol is read as ! in another system.Wat could be the reason
I have used pipe symbol | as the delimiter to seperate fields.I used this in a DS and moved it to a flat file.From the flat file CPYTOIMPF was used to created a text file and ftpd.The problem is that the | symbol is read as ! in another system.Wat could be the reason
CL400/OPNQRY
I HAVE A CASE LIKE THIS IN CL/400OPNQRYF FILE((MADE07/GLM0120)) QRYSLT('(GLFINP *NE 99) *AND (GLPRDC *EQ "AR" *OR GLPRDC *EQ"SW" *OR GLPRDC *EQ "WP" *OR GLPRDC *EQ "LR" *OR GLPRDC *EQ "MD") *and (glbrnc *eq "%substr(&bc 1 1)")') HERE BC IS A FIELD IN DISPLAY FILE I NEED TO filter data according to...
I HAVE A CASE LIKE THIS IN CL/400OPNQRYF FILE((MADE07/GLM0120)) QRYSLT('(GLFINP *NE 99) *AND (GLPRDC *EQ "AR" *OR GLPRDC *EQ"SW" *OR GLPRDC *EQ "WP" *OR GLPRDC *EQ "LR" *OR GLPRDC *EQ "MD") *and (glbrnc *eq "%substr(&bc 1 1)")') HERE BC IS A FIELD IN DISPLAY FILE I NEED TO filter data according to...
OPNQRYF
I HAVE A CASE LIKE THIS IN CL/400 OPNQRYF FILE((MADE07/GLM0120)) QRYSLT('(GLFINP *NE 99) *AND (GLPRDC *EQ "AR" *OR GLPRDC *EQ "SW" *OR GLPRDC *EQ "WP" *OR GLPRDC *EQ "LR" *OR GLPRDC *EQ "MD") *and (glbrnc *eq "%substr(&bc 1 1)")') HERE BC IS A FIELD IN DISPLAY FILE I...
I HAVE A CASE LIKE THIS IN CL/400 OPNQRYF FILE((MADE07/GLM0120)) QRYSLT('(GLFINP *NE 99) *AND (GLPRDC *EQ "AR" *OR GLPRDC *EQ "SW" *OR GLPRDC *EQ "WP" *OR GLPRDC *EQ "LR" *OR GLPRDC *EQ "MD") *and (glbrnc *eq "%substr(&bc 1 1)")') HERE BC IS A FIELD IN DISPLAY FILE I...
Search for text within a string in CL/400
Wath function can I use to find a text into other? I mean how caon I find the Position for -B- in the text -AABAA-
Wath function can I use to find a text into other? I mean how caon I find the Position for -B- in the text -AABAA-
CL - Copy To Import File
I am using the CPYTOIMPF fromfile(PF) to STMF('dir\acp&txtfile') where &txtfile is &curdt *tcat &curtm.(system date and time) The stream file is created as acp&txtfile and what i want is acp120108100150.
I am using the CPYTOIMPF fromfile(PF) to STMF('dir\acp&txtfile') where &txtfile is &curdt *tcat &curtm.(system date and time) The stream file is created as acp&txtfile and what i want is acp120108100150.
