7 respuestas

  1. Antonio Balboa
    15 noviembre, 2013

    Muy buen consejo. Solo puntualizar que hay que poner el parámetro con los ceros a la izquierda que pudiera tener y que si el parámetro tuviese una longitud par, hay que añadirle un cero más a la izquierda para que funcione (es el bit del signo), de tal modo:

    Si el campo es 7S0 –> x’00XXXXXf’
    si el campo es de 8S0 –> x’0XXXXXXXXf’

    Espero haber ayudado.

    Responder

    • JoBenCa
      15 noviembre, 2013

      Gracias por la puntualización. Cualquier detalle se agradece.

      Responder

    • Concepción Bellorin
      14 octubre, 2017

      Con el respeto de lo comentado de las instrucciones anteriores. Esa permite solo pasar los parametros, pero lo pasa mal y solo te permite ajustarlo una vez que está adentro en el debug. por lo que realmente no funciona. Lo que si funciona es sencillamente la siguiente, sin complicaciones, si el campo parm es
      7s 0. Solo debes decirle por ejemplo un valor de 7 digitos en linea de parámetros : > 0030304F y listo, sin comillas ni apostrofes, eso si funciona y el parametro numerico que lo recibe, lo recibe tal cual se lo escribiste. Créalo… C Bellorin from Venezuela

      Responder

      • JoBenCa
        16 octubre, 2017

        Gracias por tu aporte… lo probaré.

        Responder

      • Martin J.M. Rodea Serrano
        14 agosto, 2018

        Tks. a lot I can ran my program:
        CALL PGM(WH9999) PARM(‘FX’ ‘FI’ ‘DIU927606’ ‘R1D4’ ‘0’ ‘0’ ‘0685926’ ‘001’
        ‘0000000010f’ ‘AGO_14’ ‘ ‘ ‘00000’)

        Regards

        Responder

      • JoBenCa
        18 octubre, 2018

        Right! Thanks

        Responder

  2. Jaime A. Garcia Tenorio
    26 marzo, 2019

    Ejecute el programa con tres parametro numéricos y uno tipo caracter.
    Como los dos primeros son pares les agregue un cero al inicio y si funcionó como lo indican al inicio.

    *ENTRY PLIST
    PARM wrkser 6 0
    PARM wrklin 4 0
    PARM wrksec 1 0
    PARM FLAG 1

    CALL PGM(SVG4593) PARM(x’0000400f’ x’00006f’ x’0f’ ‘ ‘)

    Responder

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Volver arriba
móvil escritorio