El post del CANSIIIINOOOOOOO!!!!!!!

[holzplatten]

madreeeeeee eso es de los tiempos del COBOL....

por cierto también pico en cobo He tocado programas del 1959 (Si el programador en aquella época tenía 20 años ahora tiene 69 añazos. Madre mia!!

Código: Seleccionar todo

configuration section.
source-computer. IBM-AS400.
object-computer. IBM-AS400.

file-control.
    select sortie assign to database-extract
         organization is sequential.

data division.
file section.
fd  sortie
    block contains 1 records
    label records are omitted.
01  enreg.
    10 fich-cmd    pic x(4).
    10 fich-design pic x(10).
    10 fich-qute   pic x(4).

working-storage section.
    exec sql include SQLCA  end-exec.
77  mynom        pic x(10).
77  commande     pic s9(9) comp.
77  designation  pic x(10).
77  quantite     pic s9(9) comp.

procedure division.
    move "DUPONT" to mynom.
    open output sortie.

    exec sql whenever SQLWARNING continue      end-exec.
    exec sql whenever SQLERROR goto maj_erreur end-exec.
    exec sql whenever not found goto termine   end-exec.


 

COBOL es un clasicazo que ha sabido adaptarse bastante bien a los tiempos modernos.

Por cierto... un AS/400... no me digas que tienes un juguetito de esos...

[saba]

COBOL es un clasicazo que ha sabido adaptarse bastante bien a los tiempos modernos.

Por cierto... un AS/400... no me digas que tienes un juguetito de esos...

si lo tengo pero no lo tengo accesible pero mira que cosas más monas puedo hacer

[holzplatten]

COBOL es un clasicazo que ha sabido adaptarse bastante bien a los tiempos modernos.

Por cierto... un AS/400... no me digas que tienes un juguetito de esos...

si lo tengo pero no lo tengo accesible pero mira que cosas más monas puedo hacer

¿Eso es el interfaz del SO o qué eso? ¿Y qué SO utilizais? ¿AIX?

[saba]

¿Eso es el interfaz del SO o qué eso? ¿Y qué SO utilizais? ¿AIX?

Eso es un terminal de conexión via TCP/IP de mi PC a un host de IBM en este caso AS/400.

Emula las Display Station de AS/400.

Resumiendo, un entorno "gráfico" que te facilita las instrucciones sin necesidad de trabajar directamente sobre la línea de comandos.

Joder que "pro" parece lo que he soltao

[holzplatten]

¿Eso es el interfaz del SO o qué eso? ¿Y qué SO utilizais? ¿AIX?

Eso es un terminal de conexión via TCP/IP de mi PC a un host de IBM en este caso AS/400.

Emula las Display Station de AS/400.

Resumiendo, un entorno "gráfico" que te facilita las instrucciones sin necesidad de trabajar directamente sobre la línea de comandos.

Joder que "pro" parece lo que he soltao

Te ha faltado decir "front-end" para bordarlo.

Voy a jalar, que hoy invita la parienta.

[Looup]

Cuidao que voy yo empezemos por algo mu friki: http://www.cb.vu/

Seguimos con un poquito de PASCAL!

Código: Seleccionar todo

Program RandColorLines;
 
Uses Crt, Graph;
 
Var GraphDriver, GraphMode: Integer;
X, Y: Integer;

Begin
GraphDriver := Detect; {This automatically detects the GraphicsDriver}

InitGraph(GraphDriver, GraphMode, ' ');
{The ' ' is where the BGI file is stored on your Harddrive}
{For me it is 'C:\TP\BGI'}
X := GetMaxX;
Y := GetMaxY;
Randomize; {This Enables the Random feature}
 
While Not Keypressed Do
Begin
Delay(20); {Delays drawing of a line to once every 20 milliseconds}
SetColor(1 + Random(GetMaxColor));
Line(Random(X), Random(Y), Random(X), Random(Y));
End;
 
Repeat Until Keypressed;
Closegraph
End.

Y quien no recuerda el ensamblador?? qué arboles de navidad taaaan bonicos!

Código: Seleccionar todo

==============================================================================
; The API function "RegisterClassExA" registers a window class
; This API needs a "WNDCLASSEX" structure so we fill it with correct values
;------------------------------------------------------------------------------
mov     cbSize,30h                      ;size in bytes of WNDCLASSEX structure
mov     style,3h                        ;style, CS_HREDRAW, CS_VREDRAW
mov     lpfnWndProc,OFFSET WP1          ;address of user lpfnWndProc function
mov     cbclsExtra,0h                   ;extra bytes to allocate set to 0
mov     cbWndExtra,0h                   ;class directive in rc file
mov     hbrBackground,5                 ;handle brush,backg. color,COLOR_WINDOW
mov     lpszMenuName,0h                 ;menu name in resource file
mov     lpszClassName,OFFSET ClassName  ;name of windows class
;------------------------------------------------------------------------------
; API "LoadIconA" loads an icon defined in the resource file and store the
; handle in the "WNDCLASSEX" structure
;------------------------------------------------------------------------------
push    1000                            ;icon-string or icon resource id
push    hInstance                       ;our program handle
call    LoadIconA                       ;- API Function -
mov     hIcon,eax                       ;handle of newly loaded icon
mov     hIconSm,eax                     ;iconhandle 0=search in rc file
;------------------------------------------------------------------------------
; API "LoadCursorA" loads a default system cursor, in this case we must set
; hInstance to 0 and lpCursorName to a default system cursor value, here 32512
; Then we store the cursor handle in the "WNDCLASSEX" structure
;------------------------------------------------------------------------------
push    32512                           ;lpCursorName, default value in dezimal
push    0h                              ;hInstance, 0=default system cursor
call    LoadCursorA                     ;- API Function -
mov     hcursor,eax                     ;store handle of the cursor
...


Bueno bueno, y lo mejor para el final: http://www.granatta.com/lib/disenowebflash/
Saldrá del horno la versión actualizada del CS3 en unas semanitas seguramente.

[saba]

Cuidao que voy yo Wink empezemos por algo mu friki: http://www.cb.vu/

mola mola mola, pero para que sirve? con un simple telnet nos valdría no?

pero mola la currada que se ha dado!!

[MUEBLEUVE]

:shock: No sois ya muy grandes para jugar a los marcianitos??????

y usted no es muy mayor como para andar despierto a esas horas?

Me he levantado temprano para irme a currar

[saba]

Me he levantado temprano para irme a currar :roll:

[jekyll]

(6) Make sure that the corrected air flow rates are within the reference air flow rates given in table 201.

-----------------------------------------------------------------------------

| JET DIAMETER | |

| | AIR FLOW RATES |

|(ENGRAVED ON JETS) | |

|---------------------------------------------------------------------------|

| in. | mm | PPH | KG/H | SCFM | M3/H |

|---------------------------------------------------------------------------|

| 0.06 | 1.5 | 7.3/7.9 | 3.3/3.6 | 1.6/1.8 | 2.7/3.0 |

|---------------------------------------------------------------------------|

| 0.13 | 3.4 | 37.3/41.3 | 16.9/18.7 | 8.2/9.2 | 14.0/15.5 |

|---------------------------------------------------------------------------|

| 0.18 | 4.5 | 67.4/74.6 | 30.5/33.8 | 14.9/16.5 | 25.3/28.0 |

-----------------------------------------------------------------------------

Table 201

Standard Air Flow Rates
) The test rig must be selected to the medium size selector: 0.13 in. (3.4 mm) diameter, for the rear engine sump and for the AGB/TGB.

-----------------------------------------------------------------------------

| ENGINE OIL CIRCUIT | AIR FLOW RATES |

| |------------------------------------------------------|

| | PPH | KG/H | SCFM | M3/H |

|---------------------------------------------------------------------------|

| FORWARD SUMP | 53.2/61.9 | 24.12/28.08 | 11.6/13.5 | 19.7/22.98 |

|---------------------------------------------------------------------------|

| REAR SUMP | 22.2/26.6 | 10.08/12.06 | 4.8/5.75 | 8.2/9.8 |

|---------------------------------------------------------------------------|

| AGB/TGB | 35.3/39.3 | 16.02/17.82 | 7.7/8.55 | 13.05/14.5 |

-----------------------------------------------------------------------------

Table 202

Engine Air Flow Rates
TASK 71-00-00-000-042
Removal of the Power Plant
WARNING: USE SOLVENTS/CLEANING AGENTS, SEALANTS AND OTHER SPECIAL MATERIALS ONLY WITH A GOOD SUPPLY OF AIR.
OBEY THE MANUFACTURERS INSTRUCTIONS.
PUT ON PROTECTIVE CLOTHING.
DO NOT GET THEM IN YOUR MOUTH.
DO NOT SMOKE.
DO NOT BREATHE THE GAS.
THESE MATERIALS ARE POISONOUS, FLAMMABLE AND SKIN IRRITANT.
GET MEDICAL HELP IF YOUR SKIN OR EYES BECOME IRRITATED.
WARNING: MAKE SURE THAT THE GROUND SAFETY-LOCKS ARE IN POSITION ON THE LANDING GEAR.
WARNING: PUT THE SAFETY DEVICES AND THE WARNING NOTICES IN POSITION BEFORE YOU START A TASK ON OR NEAR:
- THE FLIGHT CONTROLS

- THE FLIGHT CONTROL SURFACES

- THE LANDING GEAR AND THE RELATED DOORS

- COMPONENTS THAT MOVE.

WARNING: MAKE SURE THAT ALL THE CIRCUITS IN MAINTENANCE ARE ISOLATED BEFORE YOU SUPPLY ELECTRICAL POWER TO THE AIRCRAFT.


no os digo na, esto no es el engine de una fazer.................

[milhouse]

jooooooooooooooooder como llueve!!!

[MUEBLEUVE]

jooooooooooooooooder como llueve!!!

Creo que este post va a dar mucho de si

[saba]

[quote="MUEBLEUVE
Creo que este post va a dar mucho de si [/quote]

don fernando yo le hacia a usted in the river village.....

[MUEBLEUVE]

Pero acabando el IVA el día 21 tú crees que puedo yo estar en algún sitio de marcha?

Ya me desquitaré la semana que viene.....

Un besote para Lore y un abrazo para ti. Imagino que os vemos en la Nacional, no?

[Mikeldi]

Como moderador y antiguo usuario de este foro, me veo obligado a decir algo serio en este hilo.