```pascal
// Block Type: OB
// Block Name (Original): Programming error
// Block Number: 121
// Original Network Languages: LAD

ORGANIZATION_BLOCK "Programming_error"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_INPUT
  BlockNr : UInt;
  Reaction : USInt;
  Fault_ID : Byte;
  BlockType : USInt;
  Area : USInt;
  DBNr : "DB_ANY";
  Csg_OBNr : "OB_ANY";
  Csg_Prio : USInt;
  Width : USInt;
END_VAR

BEGIN

  // Network 1:  (Original Language: LAD)

  // Network 1 has no logic elements.

  // No executable logic generated by script.

END_ORGANIZATION_BLOCK

```