Urgent * fifth null passed in the sixth, nested cursor works only

Gurus,

I am in a bind here and have the date limit of today. I would really appreciate a second pair of eyes. When I pass NULL values for attributes1-5, the process works. If you pass NULL in attribute6, the nested cursor fails to initialize.

Any ideas?




PROCEDURE spl_fix_error (p_count NUMBER) IS
cursor c1 is
Select h.account_number, h.order_number, l.doc_header_id, l.delivery_line_num,
item_number
of spldat.spl_intl_doc_lines l.
spldat.spl_intl_doc_headers h
where l.status_flag = 'E '.
and h.status_flag = 'E '.
and trunc (l.creation_date) > = trunc(sysdate-250)
and h.error_msg = "LIN Error"
and h.doc_header_id = l.doc_header_id;
cursor c2 (number of p_doc_header_id,
p_part_number varchar2,
p_attribute1 varchar2,
p_attribute2 varchar2,
p_attribute3 varchar2,
p_attribute4 varchar2,
p_attribute5 varchar2,
VARCHAR2 p_attribute6 / *.
p_attribute7 varchar2,
p_attribute8 varchar2,
p_attribute9 varchar2,
p_attribute10 varchar2,
p_attribute11 varchar2,
p_attribute12 varchar2,
p_attribute13 varchar2,
p_attribute14 varchar2,
VARCHAR2 p_attribute15 * /.
) is
Select srh.header_id, srl.customer_number, srl.part_number, srl.attribute1, srl.attribute2, srl.attribute3, srl.attribute4, srl.attribute5, srl.attribute6.
Srl.attribute7, srl.attribute8, srl.attribute9, srl.attribute10, srl.attribute11, srl.attribute12, srl.attribute13, srl.attribute14, srl.attribute15
of spldat.spl_request_headers_ext srh.
spldat.spl_request_lines_ext srl
where srh.header_id = srl.header_id
and srh.attribute1 in (select distinct (h.order_number)
of spldat.spl_intl_doc_lines l.
spldat.spl_intl_doc_headers h
where l.doc_header_id in (select doc_header_id from the spldat.spl_intl_doc_lines where trunc (creation_date) > = trunc(sysdate-250) and status_flag = 'X')
and l.status_flag = 'X '.
and h.doc_header_id = l.doc_header_id
and l.doc_header_id = p_doc_header_id)
and srl.part_number = nvl (p_part_number, srl.part_number)
and srl.attribute1 = nvl (p_attribute1, srl.attribute1)
and srl.attribute2 = nvl (p_attribute2, srl.attribute2)
and srl.attribute3 = nvl (p_attribute3, srl.attribute3)
and srl.attribute4 = nvl (p_attribute4, srl.attribute4)
and srl.attribute5 = nvl (p_attribute5, srl.attribute5)
and srl.attribute6 = nvl (p_attribute6, srl.attribute6); / *
and srl.attribute7 = nvl (p_attribute7, srl.attribute7)
and srl.attribute8 = nvl (p_attribute8, srl.attribute8)
and srl.attribute9 = nvl (p_attribute9, srl.attribute9)
and srl.attribute10 = nvl (p_attribute10, srl.attribute10)
and srl.attribute11 = nvl (p_attribute11, srl.attribute11)
and srl.attribute12 = nvl (p_attribute12, srl.attribute12)
and srl.attribute13 = nvl (p_attribute13, srl.attribute13)
and srl.attribute14 = nvl (p_attribute14, srl.attribute14)
and srl.attribute15 = nvl (p_attribute15, srl.attribute15); */
v_cancel_line_id spldat.spl_account_map.attribute6%type;
BEGIN
p_count: = 0;
v_proc_name: = 'SPL_FIX_ERROR ';
to crec in c1
loop

Update spldat.spl_intl_doc_lines
Set status_flag = 'X ',.
msg_erreur = "Line", cancelled or removed in the RTM
last_updated_by = 0,
last_update_date = sysdate
where doc_header_id = crec.doc_header_id;

commit;

Start
Select attribute6
in v_cancel_line_id
of spldat.spl_account_map
where cont_cd = crec.account_number;
exception
When no_data_found
then
v_cancel_line_id: = 'PART '.
end;



Start
If v_cancel_line_id = "PART".
then
( for crec2 in c2 (crec.doc_header_id, crec.item_number, ",", ",",",") - null, null, null, null, null), null, null, null, null, null, null, null, null, null, null)
loop
If crec2.part_number is not null
then
update of spldat.spl_intl_doc_lines sl
Set sl.status_flag = 'n',
last_updated_by = 0,
last_update_date = sysdate
where sl.status_flag = 'X '.
and sl.item_number = crec2.part_number
and sl.doc_header_id = crec.doc_header_id;
p_count: = 1;
end if;
end loop;

Edited by: sreese may 18, 2010 10:24

Edited by: sreese may 18, 2010 10:25

Hello

Can the column srl.attribute6 contain a NULL value? If the query should read:

AND NVL(srl.attribute6, '!?!?!') = NVL(p_attribute6, NVL(srl.attribute6, '!?!?!'))

Hope that helps.

Lee

Tags: Database

Similar Questions

  • Pavilion DV8225nr: Driver mass storage controller DV8225nr, left of the mouse doesn't work only and standby light flashing?

    Hello!

    1. get a yellow arrow in the device to other devices Manager > mass storage controller. Analysis of the HP online site can not find my computer. When I type the model as a DV8225nr, it is impossible to find anyone. I need a driver so I can delete this question mark. Properties > details > Device ID of Instance is PCI\VEN_104C & DEV_8033 & SUBSYS_309B103C & REV_00 / & 13826118 & 23 4A 4

    2. my daughter uses this computer then maybe via a combination of keys or switch or something (unless it comes to fail), the left mouse button does not work. I have to use a USB optical mouse. Any idea what I can look to restore full functionality of the Mouse/touchpad?

    3. during the night, I noticed that there is a blue light flashing motorhomes from this computer. I think it is when he goes to sleep. No way to stop this flashing?

    I thank everyone's help!

    Kind regards

    Leaning

    Hello:

    You need the driver for this device.

    http://h10025.www1.HP.com/ewfrf/wc/softwareDownloadIndex?softwareitem=ob-43235-1&cc=us&DLC=en&LC=en&OS=228&product=1841885&sw_lang=

    Have you installed the driver for the touchpad?

    http://h10025.www1.HP.com/ewfrf/wc/softwareDownloadIndex?softwareitem=ob-48345-1&cc=us&DLC=en&LC=en&OS=228&product=1841885&sw_lang=

    If this does not work, I don't have any other suggestions for you, and I agree with your assumption that it's a hardware problem.

    Flashing light?  Stop the PC instead of letting it go in mode 'sleep'.

    There is no parameters do not have happens.

  • The MS Experience Pack works only not on a compressed X 60

    I have a X 60 Tablet with MS Windows XP Tablet Edition 2005 SP3. Unfortunately, none of the MS Experience Pack applications seem to work. Does anyone else have this problem?

    It seems that your net.framework is correct.

    Yeh, I'll try to uninstall and reinstall.  Make sure that do you from Internet Explorer or could not take.

    Dave

  • Two of the three USB ports works only on Compaq CQ71 (Windows 7).

    Hi, I have a Compaq Presario CQ71.

    There is a USB port on the left and two on the right. The one on the left works but the two on the right are not.  An "unrecognized" message when you use one of them, but not with each other, however there is power coming from him, as when I plug a mouse to infrared light is turned on.
    Ive updated Chipset drivers and BIOS on Compaq website. I also made sure to do all the updates of Windows. Help, please! Its driving me crazy!

    Did you meet a very old thread... but... I know that with some machines, you can actually disable some ports USB in the BIOS. Take a look here and see if there's anything out there.

  • I have a problem with the paperport, scanner twain works only on Windows 8.

    Original Titus: Paperport twain device

    I installed windows 8 and now my paperport scanner will not work.  The message I get is UNABLE TO COMMUNICATE WITH THE TWAIN DEVICE.

    Can you please help.

    See http://nuance.custhelp.com/app/answers/detail/a_id/6472. Only Paperport 14 is supported on Windows 8.

    There are updates compatibility for Windows 8, which will be presented for installation after the installation of Paperport 14.

  • the Random var button works only not with the switch statement

    I have a button randomly on the erasure of the scene in. I'm testing button that fades in, because I have different URL according to the button it is on. Here is the code that I use, and which generates no errors... just does not work. I am unable to find the correct key, but do not work my switch statements. I don't know if it's one thing to syntax or another problem. Thank you!!

    var currentImage:MovieClip;

    var arrGrowing:Array = new Array (resume_mc, magazine_mc, suitcase_mc, monopoly_mc, superhero_mc, hat_mc,

    chair_mc, books_mc, lightbulb_mc);

    for (var i = 0; i < arrGrowing.length; i ++) {}

    arrGrowing [i] .alpha = 0;

    arrGrowing [i] .buttonMode = true;

    arrGrowing [i] .addEventListener (MouseEvent.CLICK, onButtonClick);

    }

    function initLoop (): void {}

    currentImage = arrGrowing [Math.floor (Math.random () * arrGrowing.length)];

    var exitTween:Tween = new Tween(currentImage,"alpha",Regular.easeOut,0,1,12,false);

    }

    function onButtonClick(e:MouseEvent):void {}
    switch (currentImage) {}
    case resumes:
    var url: String = "http://www.yahoo.com"; ""
    var req:URLRequest = new URLRequest (url);
    navigateToURL (req, "_self");
    break;
    }

    I don't see where CV refers to any thing implied by your code.  There is a resume_mc if that's what you're trying to test.

  • height of the iframe in onload works only in Internet Explorer

    I have an iframe that I want to change the height according to the load in there. I have the following iframe tag...

    "< iframe src ="home_company.html"onload =" this.height = this.contentDocument.height "scrolling =" "name ="iframemain"allowtransparency ="100% "frameborder ="0"style ="height"width ="491"> < / iframe >

    It works in Firefox but not in IE. Is there a solution for this in Internet Explorer.

    Thank you for your help in advance.

    Thank you for pointing me in the right direction Webbie...
    After much research, we wrote this JavaScript, which seems to work in IE and Firefox (and hope it works in Safari, although we have not tested)

    I hope you're able to help everyone if looking for this fix.

  • How to split string separated by commas and pass to the clause of the select statement

    Referring to article How to divide string separated by commas, then pass to clause of a select statement, tquery that there the following plan:

    Query1:

    select * from emp where ename in (
        select regexp_substr('SMITH,ALLEN,WARD,JONES','[^,]+', 1, level) from dual
        connect by regexp_substr('SMITH,ALLEN,WARD,JONES', '[^,]+', 1, level) is not null );
    

    Base1:

    Plan hash value: 4242290184
    
    
    --------------------------------------------------------------------------------------------
    | Id  | Operation                       | Name     | Rows  | Bytes | Cost (%CPU)| Time     |
    --------------------------------------------------------------------------------------------
    |   0 | SELECT STATEMENT                |          |     1 |   133 |     7  (29)| 00:00:01 |
    |*  1 |  HASH JOIN                      |          |     1 |   133 |     7  (29)| 00:00:01 |
    |   2 |   VIEW                          | VW_NSO_1 |     1 |    46 |     3  (34)| 00:00:01 |
    |   3 |    HASH UNIQUE                  |          |     1 |       |     3  (34)| 00:00:01 |
    |*  4 |     CONNECT BY WITHOUT FILTERING|          |       |       |            |          |
    |   5 |      FAST DUAL                  |          |     1 |       |     2   (0)| 00:00:01 |
    |   6 |   TABLE ACCESS FULL             | EMP      |    14 |  1218 |     3   (0)| 00:00:01 |
    --------------------------------------------------------------------------------------------
    
    
    Predicate Information (identified by operation id):
    ---------------------------------------------------
    
    
       1 - access("ENAME"="$nso_col_1")
       4 - filter( REGEXP_SUBSTR ('SMITH,ALLEN,WARD,JONES','[^,]+',1,LEVEL) IS NOT NULL)
    

    However, the following query generates the plan I want:

    Query2:

    select * from emp where ename in ('SMITH','ALLEN','WARD','JONES');
    

    Plan2:

    Plan hash value: 3956160932
    
    
    --------------------------------------------------------------------------
    | Id  | Operation         | Name | Rows  | Bytes | Cost (%CPU)| Time     |
    --------------------------------------------------------------------------
    |   0 | SELECT STATEMENT  |      |     4 |   348 |     3   (0)| 00:00:01 |
    |*  1 |  TABLE ACCESS FULL| EMP  |     4 |   348 |     3   (0)| 00:00:01 |
    --------------------------------------------------------------------------
    
    
    Predicate Information (identified by operation id):
    ---------------------------------------------------
    
    
       1 - filter("ENAME"='ALLEN' OR "ENAME"='JONES' OR "ENAME"='SMITH' OR
                  "ENAME"='WARD')
    

    Can I change the query1 query for plan2?

    As Juliet was mentioned in the first SQL that you generate from the ENAME list that you must pass in the IN clause when executing. But in the second SQL, it passed as a static value. So first SQL must do more work. So you see a different execution plan.

    But this is a work around to get what you are looking for. But I can't say it's a foolproof method. But anyway here you go.

    SQL > var ename_list varchar2 (100)
    SQL > exec: ename_list: = 'SMITH, ALLEN, WARD, JONES ';

    PL/SQL procedure successfully completed.

    SQL > select *.
    2 of PEM
    where the 3 «,» | : ename_list | ',' like '%', | Ename | ',%';

    EMPNO, ENAME, JOB HIREDATE DEPTNO ID COM SAL MGR
    ---------- ------ --------- ---------- --------- ---------- ---------- ---------- ----------
    7369 SMITH COMMITTED 7902 2975 2 APRIL 81 0 20
    7499 ALLEN 7698 1600 20 FEBRUARY SALESMAN 81 300 30
    7521 WARD 7698 1250 22 FEBRUARY SALESMAN 81 500 30
    7566 JONES MANAGER 7839 2975 2 APRIL 81 0 20

    SQL > select * from table (dbms_xplan.display_cursor);

    PLAN_TABLE_OUTPUT
    -------------------------------------------------------------------------------------------------------
    SQL_ID, 848zhvbvgf7d6, number of children 0
    -------------------------------------
    Select * from emp where «,» | : ename_list | ',' like '%', | Ename
    || ',%'

    Hash value of plan: 2872589290

    --------------------------------------------------------------------------
    | ID | Operation | Name | Lines | Bytes | Cost (% CPU). Time |
    --------------------------------------------------------------------------
    |   0 | SELECT STATEMENT |      |       |       |     2 (100) |          |
    |*  1 |  TABLE ACCESS FULL | EMP |     1.    38.     2 (0) | 00:00:01 |
    --------------------------------------------------------------------------

    Information of predicates (identified by the operation identity card):
    ---------------------------------------------------

    1 - filter(','||:ENAME_LIST||',' LIKE '%,'||") ENAME "|", %')

    19 selected lines.

    SQL >

  • The Null value as the default value for an input to a stored procedure parameter

    Hello

    How can we set the default values with the NULL value for the parameter in a stored procedure.
    create or replace procedure emp_proc ( p_test_input in varchar2
                                                        p_emp_id in number,
                                                        p_emp_name in varchar2,
                                                       p_manager_id in number )
    as
      begin
       if ( upper ( p_test_input ) = 'I' )
       then
          insert into emp
          values      ( p_emp_id  ,p_emp_name ,p_Manager_id,sysdate );
       elsif ( upper ( p_test_input ) = 'D' )
       then
          delete from emp
          where       emp_id  = p_emp_id;
       else
          dbms_output.put_line
             ( 'Please input ''A'' for ADD or ''D'' Delete  EMPLOYEE'
             );
       end if;
    end;
    As described above if I want to delete only the functioning

    I want to call this procedure without pass additional parameters.
     EXECUTE  emp_proc('D',1010);
    Published by: Rede on May 28, 2010 12:21

    Published by: Rede on May 28, 2010 12:22
    create or replace procedure emp_proc ( p_test_input in varchar2,
                                                        p_emp_id in number,
                                                        p_emp_name in varchar2 default null,
                                                       p_manager_id in number default null )
    
  • Values not passed to the service VIEW FML

    Hello

    Use Tuxedo10g R3 on AIX 5.3.

    I wrote a Tuxedo application model that takes the customer data and transmit these data to the Service via FML VIEW dependent and the server converts the data passed in capital letters and return to the customer...

    I created the table field and FML VIEW dependent file and set the required environment variables and I built the client and the server.

    After running the object module is called the service, but the values are not passed to the service and the data is not converted to uppercase.

    The table field file is as follows:
    "sampfml" 4 lines, 159 characters
    # name number type flags comments
    Chain of FIRSTSTR1 110-
    Chain of SECONDSTR1 111-
    String of 112 THIRDSTR1 -
    FML VIEW dependent:
    VIEWS sampview
    indicator of County # type cname fbna size null

    String firststr FIRSTSTR1 1-10. \0
    String secondstr SECONDSTR1 1-10. \0
    String thirdstr THIRDSTR1 1-10. \0
    END
    environment variables that I put are:
    #FIELDTBLS
    #
    FIELDTBLS = sampfml, fields, Usysflds
    #
    #FLDTBLDIR
    #
    FLDTBLDIR = ${TUXDIR} / udataobj: ${APPDIR}
    #
    #VIEWDIR
    #
    VIEWDIR = ${APPDIR}
    #
    #VIEWFILES
    #
    VIEWFILES = sampview. V
    my customer code:
    IDENTIFICATION DIVISION.
    PROGRAM-ID. SIMPCL.
    AUTHOR. DEVELOPMENT OF TUX.
    ENVIRONMENTAL DIVISION.
    SECTION OF CONFIGURATION.
    DATA DIVISION.
    STORAGE SECTION OF WORK.
    *****************************************************
    * Definitions of tuxedo
    *****************************************************
    TPTYPE 01 - REC.
    COPY TPTYPE.
    *
    TPSTATUS 01 - REC.
    COPY TPSTATUS.
    *
    TPSVCDEF 01 - REC.
    COPY TPSVCDEF.
    *
    TPINFDEF 01 - REC.
    COPY TPINFDEF.
    *
    FML 01 - REC.
    COPY FMLINFO.
    *
    01 MYFML.
    F-05 DATA PIC X (10).
    05 PIC S-DATA X (10).
    T-05 DATA PIC X (10).
    FILLER 05 PIC X (30).
    *****************************************************
    * Definitions log messages
    *****************************************************
    01 LOGMSG.
    VALUE OF FILL 05 PIC X (8) ' SIMPCL:
    LOGMSG 05-TEXT PIC X (50).
    01 LOGMSG-LEN PIC S9 (9) COMP-5.
    *
    STRING 01 DATA.
    COPY sampview.
    ENTER 01-STRING.
    05 S-FIRST PIC X (10).
    05 S-SECOND PIC X (10).
    05 S-THIRD PIC X (10).
    PEAK USER-DATA-REC 01 X (75).
    SECTION OF LIAISON.
    ******************************************************
    * Start the program with command line parameters
    ******************************************************
    THE PROCEDURE DIVISION.
    MOVE DOWN-VALUES TO TPINFDEF-REC.
    MOVE ALL THE LOGMSG TO LOGMSG-LEN.
    START-SIMPCL.
    LOGMSG-TEXT, MOVE "on the road".
    PERFORM DES USERLOG.
    PERFORM DES TPINIT.
    ACCEPT S FIRST.
    ACCEPT THE SECOND S.
    ACCEPT S THIRD.
    S-FIRST MOVEMENT FIRSTSTR.
    SPEND S-SECOND TO SECONDSTR.
    PASS S-THIRD AT THIRDSTR.
    DISPLAY ' VALUES BEFORE: "-THE STRING DATA.".
    DISPLAY "FML: ' MYFML.
    PERFORM DES TPCALL.
    DISPLAY "DATA AFTER CONVERSION:
    DISPLAY FIRSTSTR.
    DISPLAY SECONDSTR.
    DISPLAY THIRDSTR.
    PERFORM DES TPTERM.
    MAKE THE PROGRAM EXIT.

    *****************************************************
    * Now put the customer in the system.
    *****************************************************
    -TPINIT.
    MOVING TO USRNAME SPACES.
    MOVE TO CLTNAME BOXES.
    MOVE TO BOXES TO PASSWD.
    MOVE TO BOXES TO GRPNAME.
    MOVE 0 TO DATALEN.
    TPU - DIP SET TO TRUE.
    *
    CALL FOR ASSISTANCE "TPINITIALIZE" TPINFDEF-REC
    USER-DATA-REC
    TPSTATUS-REC.

    IF NOT OK
    MOVE "TPINITIALIZE failed" LOGMSG-text
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.

    *****************************************************
    Issue of a TPCALL
    *****************************************************
    -TPCALL.
    MOVE ALL MYFML FLM-LENGTH.
    CALL "ENDS" WITH THE HELP OF MYFML FLM - REC.
    OTHERWISE FOK
    MOVE "FINALLY failed" LOGMSG-text
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT.
    FUPDATE SET TO TRUE.
    MOVE 'sampview' to VIEWNAME.
    CALL "FVSTOF" WITH THE HELP OF STRING FML - REC MYFML-DATA.
    OTHERWISE FOK
    MOVE 'FVSTOF failed' to LOGMSG-TEXT
    PERFORM DES USERLOG
    FLM-DISPLAY STATUS
    MAKE THE PROGRAM EXIT.

    MOVE "FLM" REC-INDICATE THE TPTYPE-REC.
    MOVE SPACES OF SUB-TYPE IN TPTYPE-REC.
    MOVE ALL MYFML TO LEN.

    GO "SIMPSRV" - NAME OF THE SERVICE.
    TPBLOCK SET TO TRUE.
    TPNOTRAN SET TO TRUE.
    TPNOTIME SET TO TRUE.
    TPSIGRSTRT SET TO TRUE.
    TPCHANGE SET TO TRUE.

    CALL FOR ASSISTANCE "TPCALL" TPSVCDEF-REC
    TPTYPE-REC
    MYFML
    TPTYPE-REC
    MYFML
    TPSTATUS-REC.

    IF NOT OK
    MOVE "TPCALL failed" LOGMSG-text
    PERFORM DES USERLOG
    END-IF.

    CALL "FVFTOS" WITH THE HELP OF STRING FML - REC MYFML-DATA.
    OTHERWISE FOK
    MOVE 'FVFTOS failed' to LOGMSG-TEXT
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT.

    *****************************************************
    * Let TUXEDO
    *****************************************************
    -TPTERM.
    CALL FOR ASSISTANCE "TPTERM" TPSTATUS-REC.
    IF NOT OK
    MOVE "TPTERM failed" LOGMSG-text
    PERFORM DES USERLOG
    END-IF.

    *****************************************************
    * Saves messages in the userlog
    *****************************************************
    -USERLOG.
    CALL FOR ASSISTANCE "USERLOG" LOGMSG
    LOGMSG-LEN
    TPSTATUS-REC.

    *****************************************************
    * Request for leave
    *****************************************************
    EXIT-PROGRAM.
    MOVE 'done' LOGMSG-TEXT.
    PERFORM DES USERLOG.
    STOP EXECUTION.

    My server code:
    IDENTIFICATION DIVISION.
    PROGRAM-ID. SIMPSRV.
    AUTHOR. DEVELOPMENT OF TUX.
    ENVIRONMENTAL DIVISION.
    SECTION OF CONFIGURATION.
    DATA DIVISION.
    STORAGE SECTION OF WORK.
    ******************************************************
    * Definitions of tuxedo
    ******************************************************
    TPSVCRET 01 - REC.
    COPY TPSVCRET.
    *
    TPTYPE 01 - REC.
    COPY TPTYPE.
    *
    TPSTATUS 01 - REC.
    COPY TPSTATUS.
    *
    TPSVCDEF 01 - REC.
    COPY TPSVCDEF.
    ******************************************************
    * Definitions of log messages
    ******************************************************
    01 LOGMSG.
    VALUE OF FILL 05 PIC X (10)
    "SIMPSRV:
    LOGMSG 05-TEXT PIC X (50).
    01 LOGMSG-LEN PIC S9 (9) COMP-5.
    ******************************************************
    * Data records user defined
    ******************************************************
    STRING 01 DATA.
    COPY sampview.
    01 MYFML.
    F-05 DATA PIC X (10).
    05 PIC S-DATA X (10).
    T-05 DATA PIC X (10).
    FILLER 05 PIC X (30).
    *
    SECTION OF LIAISON.
    *
    THE PROCEDURE DIVISION.
    *
    START-FUNDUPSR.
    MOVE ALL THE LOGMSG TO LOGMSG-LEN.
    LOGMSG-TEXT, MOVE "on the road".
    PERFORM DES USERLOG.

    ******************************************************
    * Get the data that has been sent by the client
    ******************************************************
    MOVE ALL MYFML TO LEN.
    MOVING MYFML LOGMSG-TEXT.
    PERFORM DES USERLOG.
    CALL USING 'TPSVCSTART' TPSVCDEF-REC
    TPTYPE-REC
    MYFML
    TPSTATUS-REC.

    IF NOT OK
    MOVE 'TPSVCSTART failed' to LOGMSG-TEXT
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.

    IF TPTRUNCATE
    MOVE "Data has been truncated" LOGMSG-TEXT
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.
    MOVING FIRSTSTR LOGMSG-TEXT.
    PERFORM DES USERLOG.
    MOVING SECONDSTR LOGMSG-TEXT.
    PERFORM DES USERLOG.
    MOVING THIRDSTR LOGMSG-TEXT.
    PERFORM DES USERLOG.
    INSPECT THE FIRSTSTR CONVERSION
    "abcdefghijklmnopqrstuvwxyz" to
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    INSPECT THE SECONDSTR CONVERSION
    "abcdefghijklmnopqrstuvwxyz" to
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    INSPECT THE THIRDSTR CONVERSION
    "abcdefghijklmnopqrstuvwxyz" to
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    MOVE FIRSTSTR TO S-FIRST.
    MOVE SECONDSTR TO S-SECONDS.
    MOVE THIRDSTR TO S THIRD.
    MOVE 'Success' to LOGMSG-TEXT.
    PERFORM DES USERLOG.
    MOVE TO ENTER STRING LOGMSG-TEXT.
    PERFORM DES USERLOG.
    TPSUCCESS SET TO TRUE.
    COPY TPRETURN REPLACEMENT
    DATA-REC MYFML.

    ******************************************************
    * Write an err messages disconnect
    ******************************************************
    -USERLOG.
    CALL FOR ASSISTANCE "USERLOG" LOGMSG
    LOGMSG-LEN
    TPSTATUS-REC.
    ******************************************************
    * EXIT PROGRAM
    ******************************************************
    EXIT-PROGRAM.
    LOGMSG-TEXT, MOVE "has failed."
    PERFORM DES USERLOG.
    TPFAIL SET TO TRUE.
    COPY TPRETURN REPLACEMENT
    DATA-REC MYFML.

    And when execution of the module of the object:
    SIMPCL
    Hello
    Hello
    World
    VALUES BEFORE: Hello Hello World
    FML:
    DATA AFTER CONVERSION:
    Hello
    Hello
    World
    can anyone help me with this?

    Thank you...

    Hello

    In the server program, you must call FVFTOS to convert the COBOL record FML buffer, then do the translation. After that, you must also call 'FVSTOF' to convert it back to FML. I can get the correct results with your program with these changes.

    Customer
    ======================
    IDENTIFICATION DIVISION.
    PROGRAM-ID. CSIMPCL.
    AUTHOR. DEVELOPMENT OF TUX.
    ENVIRONMENTAL DIVISION.
    SECTION OF CONFIGURATION.
    STORAGE SECTION OF WORK.
    *****************************************************
    * Definitions of tuxedo
    *****************************************************
    TPTYPE 01 - REC.
    COPY TPTYPE.
    *
    TPSTATUS 01 - REC.
    COPY TPSTATUS.
    *
    TPSVCDEF 01 - REC.
    COPY TPSVCDEF.
    *
    VALUES-01 TPINFDEF-REC VALUE LOW.
    COPY TPINFDEF.
    *
    FML 01 - REC.
    COPY FMLINFO.
    *
    01 MYFML.
    F-05 DATA PIC X (10).
    05 PIC S-DATA X (10).
    T-05 DATA PIC X (10).
    FILLER 05 PIC X (30).
    *****************************************************
    * Definitions log messages
    *****************************************************
    01 LOGMSG.
    VALUE OF FILL 05 PIC X (8) ' CSIMPCL:
    LOGMSG 05-TEXT PIC X (50).
    01 LOGMSG-LEN PIC S9 (9) COMP-5.
    *
    STRING 01 DATA.
    COPY sampview.
    *
    ENTER 01-STRING.
    05 S-FIRST PIC X (10).
    05 S-SECOND PIC X (10).
    05 S-THIRD PIC X (10).
    *
    PEAK USER-DATA-REC 01 X (75).
    SECTION OF LIAISON.
    ******************************************************
    * Start the program with command line parameters
    ******************************************************
    THE PROCEDURE DIVISION.
    START-CSIMPCL.
    LOGMSG-TEXT, MOVE "on the road".
    PERFORM DES USERLOG.
    PERFORM DES TPINIT.
    MOVE 'Hi' to FIRSTSTR.
    MOVE the 'Hello' to SECONDSTR.
    MOVE the 'world' to THIRDSTR.
    DISPLAY ' VALUES BEFORE: "-THE STRING DATA.
    DISPLAY "FML: ' MYFML.
    PERFORM DES TPCALL.
    DISPLAY ' VALUES AFTER:
    DISPLAY FIRSTSTR.
    DISPLAY SECONDSTR.
    DISPLAY THIRDSTR.
    PERFORM DES TPTERM.
    MAKE THE PROGRAM EXIT.
    *****************************************************
    * Now put the customer in the system.
    *****************************************************
    -TPINIT.
    MOVING TO USRNAME SPACES.
    MOVE TO CLTNAME BOXES.
    MOVE TO BOXES TO PASSWD.
    MOVE TO BOXES TO GRPNAME.
    MOVE 0 TO DATALEN.
    TPU - DIP SET TO TRUE.
    *
    CALL FOR ASSISTANCE "TPINITIALIZE" TPINFDEF-REC
    USER-DATA-REC
    TPSTATUS-REC.

    IF NOT OK
    MOVE "TPINITIALIZE failed" LOGMSG-text
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.

    -TPCALL.
    MOVE ALL MYFML FLM-LENGTH.
    DISPLAY 'LENGTH OF MYFML.
    FML-LENGTH DISPLAY.
    CALL "ENDS" WITH THE HELP OF MYFML FLM - REC.
    OTHERWISE FOK
    MOVE "FINALLY failed" LOGMSG-text
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.
    FUPDATE SET TO TRUE.
    MOVE 'sampview' to VIEWNAME.
    CALL "FVSTOF" WITH THE HELP OF STRING FML - REC MYFML-DATA.
    OTHERWISE FOK
    MOVE 'FVSTOF failed' to LOGMSG-TEXT
    PERFORM DES USERLOG
    FLM-DISPLAY STATUS
    MAKE THE PROGRAM EXIT
    END-IF.

    MOVE "FLM" REC-INDICATE THE TPTYPE-REC.
    MOVE SPACES OF SUB-TYPE IN TPTYPE-REC.
    MOVE ALL MYFML TO LEN.

    GO "SIMPSRV" - NAME OF THE SERVICE.
    TPBLOCK SET TO TRUE.
    TPNOTRAN SET TO TRUE.
    TPNOTIME SET TO TRUE.
    TPSIGRSTRT SET TO TRUE.
    TPCHANGE SET TO TRUE.

    CALL FOR ASSISTANCE "TPCALL" TPSVCDEF-REC
    TPTYPE-REC
    MYFML
    TPTYPE-REC
    MYFML
    TPSTATUS-REC.
    IF NOT OK
    MOVE "TPCALL failed" LOGMSG-text
    PERFORM DES USERLOG
    END-IF.

    CALL "FVFTOS" WITH THE HELP OF STRING FML - REC MYFML-DATA.
    OTHERWISE FOK
    MOVE 'FVFTOS failed' to LOGMSG-TEXT
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.

    *****************************************************
    * Let TUXEDO
    *****************************************************
    -TPTERM.
    CALL FOR ASSISTANCE "TPTERM" TPSTATUS-REC.
    IF NOT OK
    MOVE "TPTERM failed" LOGMSG-text
    PERFORM DES USERLOG
    END-IF.

    *****************************************************
    * Saves messages in the userlog
    *****************************************************
    -USERLOG.
    CALL FOR ASSISTANCE "USERLOG" LOGMSG
    LOGMSG-LEN
    TPSTATUS-REC.

    *****************************************************
    * Request for leave
    *****************************************************
    EXIT-PROGRAM.
    MOVE 'done' LOGMSG-TEXT.
    PERFORM DES USERLOG.
    STOP EXECUTION.

    Server
    ====================================
    IDENTIFICATION DIVISION.
    PROGRAM-ID. SIMPSRV.
    AUTHOR. DEVELOPMENT OF TUX.
    ENVIRONMENTAL DIVISION.
    SECTION OF CONFIGURATION.

    DATA DIVISION.
    STORAGE SECTION OF WORK.
    ******************************************************
    * Definitions of tuxedo
    ******************************************************
    TPSVCRET 01 - REC.
    COPY TPSVCRET.
    *
    TPTYPE 01 - REC.
    COPY TPTYPE.
    *
    TPSTATUS 01 - REC.
    COPY TPSTATUS.
    *
    TPSVCDEF 01 - REC.
    COPY TPSVCDEF.
    *
    FML 01 - REC.
    COPY FMLINFO.
    ******************************************************
    * Definitions of log messages
    ******************************************************
    01 LOGMSG.
    VALUE OF FILL 05 PIC X (10)
    "SIMPSRV:
    LOGMSG 05-TEXT PIC X (50).
    01 LOGMSG-LEN PIC S9 (9) COMP-5.
    ******************************************************
    * Data records user defined
    ******************************************************
    STRING 01 DATA.
    COPY sampview.
    ENTER 01-STRING.
    05 S-FIRST PIC X (10).
    05 S-SECOND PIC X (10).
    05 S-THIRD PIC X (10).
    *
    01 MYFML.
    F-05 DATA PIC X (10).
    05 PIC S-DATA X (10).
    T-05 DATA PIC X (10).
    FILLER 05 PIC X (30).

    *
    SECTION OF LIAISON.
    *
    THE PROCEDURE DIVISION.
    *
    START-FUNDUPSR.
    MOVE ALL THE LOGMSG TO LOGMSG-LEN.
    LOGMSG-TEXT, MOVE "on the road".
    PERFORM DES USERLOG.

    ******************************************************
    * Get the data that has been sent by the client
    ******************************************************
    MOVE ALL MYFML TO LEN.
    MOVING MYFML LOGMSG-TEXT.
    PERFORM DES USERLOG.
    CALL USING 'TPSVCSTART' TPSVCDEF-REC
    TPTYPE-REC
    MYFML
    TPSTATUS-REC.

    IF NOT OK
    MOVE 'TPSVCSTART failed' to LOGMSG-TEXT
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.

    IF TPTRUNCATE
    MOVE "Data has been truncated" LOGMSG-TEXT
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.

    MOVE 'sampview' to VIEWNAME
    CALL "FVFTOS" WITH THE HELP OF STRING FML - REC MYFML-DATA.
    OTHERWISE FOK
    MOVE "FVFTOS failed" LOGMSG-TEXT
    PERFORM DES USERLOG
    MAKE THE PROGRAM EXIT
    END-IF.
    MOVE 'DOING OK FVFTOS' LOGMSG-TEXT.
    PERFORM DES USERLOG.
    MOVING FIRSTSTR LOGMSG-TEXT.
    PERFORM DES USERLOG.
    MOVING SECONDSTR LOGMSG-TEXT.
    PERFORM DES USERLOG.
    MOVING THIRDSTR LOGMSG-TEXT.
    PERFORM DES USERLOG.
    INSPECT THE FIRSTSTR CONVERSION
    "abcdefghijklmnopqrstuvwxyz" to
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    INSPECT THE SECONDSTR CONVERSION
    "abcdefghijklmnopqrstuvwxyz" to
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    INSPECT THE THIRDSTR CONVERSION
    "abcdefghijklmnopqrstuvwxyz" to
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    MOVE FIRSTSTR TO S-FIRST.
    MOVE SECONDSTR TO S-SECONDS.
    MOVE THIRDSTR TO S THIRD.
    MOVE 'Success' to LOGMSG-TEXT.
    PERFORM DES USERLOG.
    MOVE TO ENTER STRING LOGMSG-TEXT.
    PERFORM DES USERLOG.
    FUPDATE SET TO TRUE.
    MOVE 'sampview' to VIEWNAME.
    CALL "FVSTOF" WITH THE HELP OF STRING FML - REC MYFML-DATA.
    OTHERWISE FOK
    MOVE 'FVSTOF failed' to LOGMSG-TEXT
    PERFORM DES USERLOG
    FLM-DISPLAY STATUS
    MAKE THE PROGRAM EXIT
    END-IF.

    TPSUCCESS SET TO TRUE.
    COPY TPRETURN REPLACEMENT
    DATA-REC MYFML.

    ******************************************************
    * Write an err messages disconnect
    ******************************************************
    -USERLOG.
    CALL FOR ASSISTANCE "USERLOG" LOGMSG
    LOGMSG-LEN
    TPSTATUS-REC.
    ******************************************************
    * EXIT PROGRAM
    ******************************************************
    EXIT-PROGRAM.
    LOGMSG-TEXT, MOVE "has failed."
    PERFORM DES USERLOG.
    TPFAIL SET TO TRUE.
    COPY TPRETURN REPLACEMENT
    DATA-REC MYFML.

    The result looks like,
    The VALUES BEFORE: Hello Hello World
    FML:
    LENGTH MYFML
    + 0000000060
    VALUES AFTER:
    Hello
    Hello
    WORLD

    In addition, in your client program FILLING only given size 10, not compatible with the side server, which is 30. I use the same size in the client and the server.
    I also interested in why do you use style convert FML/VIEW? If both a pure COBOL, just with VIEW program is easier programming, just a suggestion.

    Kind regards
    Wayne

  • Masking elements at the entrance to the page if the NULL value in the database...

    Environment: APEX 3.1.1.00.09

    I have two 2 page elements I want to hide in 2 two instances:

    1. when the page first that the user enters a new round of data
    2 when the values of these objects have the value NULL, based on the recovered database

    I would like to than the items to be displayed if the values in the extracted line are not NULL.

    I already have the logic that allows you to hide items based on specific values being selected or changed by the user, but as requested (1) above I elements be hidden initially.

    Be gentle as I am still a beginner. :-) >

    -gary

    Hi Gary - I thought today, it was a public holiday in the United States (something to do with a new President?)

    Anyway...

    You have reason - javascript there has nothing to do with Apex, so debugging doesn't even know it exists. To test if your script is run, the simplest method is to put messages alert ('message') in the code:

    function ...()
    {
     alert("Here 1");
     ...
     alert("Here 2");
     ...
    etc
    

    Name the messages in a way that you can easily identify what is running.

    It might be easier for you to explain what I did on my page (assuming it does what you're trying to do? Otherwise, just say).

    On the attributes of my page, I have added the following in the Header HTML parameter:

    <script type="text/javascript">
    function shA()
    {
     var l = document.getElementById('P6_LISTA');
     if (l.value == 'A')
     {
      $x_ItemRow('P6_TEXTA','SHOW');
     }
     else
     {
      $x_ItemRow('P6_TEXTA','HIDE');
     }
    }
    function shB()
    {
     var l = document.getElementById('P6_LISTB');
     if (l.value == 'B')
     {
      $x_ItemRow('P6_TEXTB','SHOW');
     }
     else
     {
      $x_ItemRow('P6_TEXTB','HIDE');
     }
    }
    </script>
    

    Strictly speaking, you could add this anywhere above the P6_xxx dishes - but the HTML header is the best place to add javascript functions.

    I have then four elements on the page:

    P6_LISTA - a selection list
    The Source is: STATIC: A, B, C, D, E
    and the setting of the attributes of the Form HTML element is: onchange = "javascript:shA();" »

    P6_LISTB - a selection list
    The Source is: STATIC: A, B, C, D, E
    and the setting of the attributes of the Form HTML element is: onchange = "javascript:shB();" »

    These two have display Null: Yes - Null display value: - Select - and Null return value: Z

    P6_TEXTA and P6_TEXTB are two normal text fields and not of special parameters.

    Finally, I have a region in the foot before displaying the point and the use of 'No. Template' which has a Source in the region:

    <script type="text/javascript">
    shA();
    shB();
    </script>
    

    (this pass just the code show/hide the page loading)

    Who help me?

    Andy

  • When I tried to print my boarding pass of the continental, all I got was a page of small letters and numbers.

    When I tried to print my boarding pass of the continental, all I got was a page of small letters and numbers.

    There is a Bug in 4.0b12 that will be fixed in 4.0 RC, to be released next week.

  • Re: Satellite Pro L100 - couldn't pass on the card wireless with FN + F8

    Hello

    I have the same problem with my laptop Satellite Pro L100 and M70.
    I installed with new XP SP3 and installed the drivers, but I could not pass over the WiFi connection with the FN + F8 key.
    What can I do?

    Kind regards

    Csaba

    Hello

    Generally, it should be able to activate the Wlan using FN + F8 key combination.

    But before that you would use this combination of keys that you must also activate the WLan switch which is placed on the side of books.

    If you are not able to use the FN + F8 key combination, then you must install the drivers as Hotkey Utility, utilities and tools.

    On the European driver Toshiba page you will find Instructions install txt file. This file shows you the installation order correct driver

    See you soon

  • "(null) + 1" on the display front of RN516

    My present '+ 1 (null)' RN516 in the display before and administrative pages are not accessible.

    Recently, I swapped a disc and I think that the backup to USB or remote RN312 are running.

    How can I take control of the RN516 again?

    dsnpevl wrote:

    When I try to access the admin page, I always end up the "ReadyNAS Admin Page is offline" message. Now, I physically disconnected the USB drive to see if that will stop the backup process and take back control.

    By pulling the USB drive does not change the symptoms. Still could not access the Admin Pages. Also ended up having to rebuild the USB (write zeros and reformat).

    Forcilbly stop and restart the RN516 solved the problem. Access to the pages of adming is re-esthablished and backup to rebuild USB drive works.

    Still don't know what caused the message (null) + 1 on the display. Is it possible to know what caused this, so I can try to prevent it from happening in the future?

  • I can't the arguments passed to the AWR Design environment?

    From a script Visual Basic can I get a list of command line arguments that were used to start Office from microwave or VSS?

    The command line arguments passed to the application at startup are accessed through the collection of application arguments MWOffice.Arguments . Each whitespace delimited command line argument is available as an argument object in the collection. The Argument.Value property contains the value of this argument. For example, the following script displays a list of the arguments passed to the application in the debug output window.

Maybe you are looking for

  • How can I save my iphone to my computer Win10?

    I found a lot of so-called solutions to this, but none of them work. I ran out of space on iCloud and do not want to buy more. How can I save on my computer? All it will do (via iTunes) is sync. I want to make a backup. Also, if I make a backup, wher

  • Tecra A11-128 does not start - black monitor, only the fan is on

    My laptop starts to boot, a few seconds later, the fan runs all the time and at full power. Here the detailed steps:-Push the Start button (battery led is green)-the hhd led is green for a short time, then off-l' screen is black all the time-After a

  • while trying to share with FB

    I tried to share a picture of my Face Book. When I got gout in the dropdown menu, I chose FB & then he says not FB has been affected. When I provided info, he said account already exists but doesn't let me share. What Miss me?

  • Use of the filesystem in Windows Vista Business

    I had a neX61 in November last with Windows Vista Business and 120 GB disk space. I installed MS Office Standard 2007 and Visio, the disk of 2 months following its use grew much greated than the volume of data that I have placed on the system. I ran

  • Norton cant run or unstal

    Cannot run norton trty to unstal can do that